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NUMERICAL  MODEL  COMPUTING  WAVE  PROPAGATIONS  IN  AN  OPEN  COAST 


1.  INTRODUCTION 

Numerical  results  based  on  the  linear,  parabolic  wave  equation  have  been 
reported  recently  by  several  researchers  (e.g.,  Tsay  and  Liu,  1982;  Dingemans, 
1983;  Liu  and  Tsay,  1985;  Kirby  and  Dalryople,  1986).  The  linear,  parabolic 
wave  equation  describes  wave  propagation  over  a  complex  bottom  topography 
and/or  a  current  field  uhere  both  refraction  and  diffraction  are  important. 
For  a  given  problem,  solutions  of  die  parabolic  equation  require  less 
computing  time  and  storage  than  solutions  of  the  mild* slope  equation  (an 
elliptic  equation).  The  linear  parabolic  wave  equation  method  is,  perhaps, 
most  suitable  for  computing  the  wave  height  distribution  and  propagation 
directions  over  a  regional  scale  because  of  the  relative  low  computational 
requirements . 

In  this  report,  numerical  models  based  on  the  parabolic  approximation 
are  presented.  The  theoretical  background  of  the  models  is  first  summarized 
in  section  2.  The  theory  presented  in  this  section  is  an  extension  of  Tsay 
and  Liu's  (1982)  work.  A  more  detailed  explanation  of  the  method  and 
justifications  for  its  application  can  be  found  in  Liu  (1986).  Although 
nonlinear  parabolic  wave  equations  have  already,  been  developed  for  both  Stokes 
and  shallow  water  waves  (Liu,  et  al.,  1986;  Kirby,  1986;  Yoon,  1987),  the 
discussion  reported  herein  is  limited  to  linear  wave  theory.  Three  numerical 
models,  each  using  a  different  coordinate  system,  are  discussed  in  detail. 

Nvunerical  results  are  presented  in  section  3.  Three  sets  of  laboratory 
and  field  data  are  used  to  verify  the  accuracy  of  the  lumerical  models.  For 
each  example,  sample  input/output  data  files  are  included  in  an  appendix.  In 
section  4  a  flow-chart  and  description  of  input-output  data  files  are 
presented.  A  listing  of  the  computer  program  is  also  presented  in  this 
section. 
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2.  THEORETICAL  BACKGROUND 

The  derivation  of  the  parabolic  wave  equation  for  small  amplitude  waves 
can  be  found  in  recent  literature  (e.g.,  Radder,  1979;  Lozano  and  Liu,  1980; 
Liu,  1983;  Kirby,  1986).  In  this  section  we  only  summarize  the  essential 
theoretical  information  needed  to  follow  the  numerical  model  development.  The 
reader  can  also  consult  the  report  by  Liu  (1986)  for  a  more  detailed 
discussion  of  the  parabolic  approximation  method. 

2.1  The  Mild-slope  and  Parabolic  Wave  Equations 

Consider  the  propagation  of  a  small  amplitude,  monochromatic  wave  train 
with  frequency  u»  over  a  gradually  varying  water  depth,  z  -  -h(x,y),  and  a 
current  field.  Denoting  4(x,y,t)  as  the  velocity  potential  on  the  mean  free 
surface,  z  -  0,  the  mild-slope  equation  can  be  written  as  (Liu,  1983;  Kirby, 
1984) ; 

2 

+  (V  •  u)  ^  -  7  •  (CCg  V*)  +  (n2  -  k2  CCg  -  i  w  W)  *  -  0, 

(2.1) 

where  v  -  (a/3x,  a/ay),  u  -  u  (x,y)  denotes  the  current  velocity  vector,  and  0 
is  the  intrinsic  wave  frequency,  which  satisfies  the  dispersion  relation: 

-  gk  tanh  kh  ,  (2.2) 

in  which  k  is  the  wave  number  and  h  is  the  water  depth.  The  dispersion 
relation  can  be  used  to  calculate  the  phase  velocity,  C  -  fJ/k,  and  the  group 
velocity,  Cg  »  dO/dk.  Because  of  the  appearance  of  the  ambient  current,  there 
is  a  difference  between  the  intrinsic  frequency  and  the  wave  frequency  w, 
l.e.  , 

n  -  w  -  J  •  u  (2.3) 
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In  (2.1)  the  total  time  derivative  is  defined  as: 


Dt 


a__ 

at 


+  u 


V 


(2.4) 


and  W  represents  the  rate  of  energy  dissipation  per  unit  wave  energy  per 
wavelength  (Booij ,  1981) . 

For  monochromatic  waves  the  velocity  potential  can  be  written  in  the 
following  form: 

*(x,y,t)  -  ^(x.y)  .  (2.5) 

The  free -surface  displacement  z  -  »?(x,y)  exp(-itjt)  can  also  be  related  to  the 
velocity  potential  as  follows: 


*(x,y,t) 


»?(x,y) 


-  iwt 
e 


(2.6) 


Therefore,  from  (2.5)  and  (2.6) 
~  ^(x.y)  . 


(2.7) 


Substituting  (2.5)  into  (2.1)  yields 

u  •  v(u  •  v^)  -  2iwu  •  7^  +  (V  •  u)  (u  •  v^) 

-  V  •  (CCg  v^)  +  [n2  -  -  iwv  •  u  -  k^CCg  -  iwW]  ^  -  0.  (2.8) 

The  above  equation  can  be  viewed  as  a  mild- slope  equation  for  wave -current 

interaction.  For  a  weak  current  field,  such  that 

O(CCg)  »  0(1^1^),  (2.9) 

(2.8)  can  be  reduced  to  be 

V  •  (CCg  v^)  +  2iwu  •  +  (k^CCg  +2k-un+iwV-u+  iwW]  ^  -  0. 

(2.10) 


If  the  current  field  is  zero,  (2.10)  can  be  further  simplified  to  give 


V  •  (CCg  v<i>)  +  [k^CCg  +  iwW]  ^  -  0.  (2.11) 

Without  considering  the  energy  dissipation  term  W,  Berkhoff  (1972)  derived  the 
raild-slope  equation  describing  wave  propagations  over  a  slowly  varying 
topography.  Different  derivations  of  the  same  equation  were  also  given 
independently  by  Smith  and  Sprinks  (1975)  and  Lozano  and  Meyer  (1976).  The 
basic  assumption  employed  in  die  mild-slope  equation  derivation  is  that  the 
percentage  of  change  of  water  depth  within  a  characteristic  wave  length  is 
small,  i.e.,  0(|vh|/kh)  «  1.  The  mild-slope  equation  reduces  to  the 
Helmholtz  equation  in  the  deep-water  limit  and  to  the  shallow- water  wave 
equation  in  the  shallow-water  limit. 

Following  Tsay  and  Liu's  (1982)  approach,  the  water  depth  is  split  into 
two  components;  i.e., 

h(x,y)  -  h  +  h  .  (2.12) 

The  wave  number  corresponding  to  the  modified  depth,  h,  is  k.  The  first 
criterion  for  selecting  the  modified  topography  is  that  no  caustic  shall 
appear  in  the  vave  field  associated  with  the  modified  depth.  Secondly,  the 
differences  between  the  actual  wave  number,  k,  and  the  modified  wave 
number,  k,  must  be  small,  i.e., 

k2  -  k2  -  k2  «  1  .  (2.13) 

A  numerical  procedure  for  defining  the  modified  water  depth  is  given  in 
section  2.3. 

We  now  propose  a  solution  form  for  the  velocity  potential; 

^  -  FAe^^  ,  (2.U) 
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where  S  and  r.  are  determined  by  the  elkonal  equation  and  the  transport 
equatio’*  associated  with  the  modified  wave  number,  k,  i.e., 

k^  -  (VS)2  ,  (2.15) 

VS  •  V  (a2  CCg)  +  (v2s)  a2  CCg  -  0  .  (2.16) 

The  amplitude  function,  A,  and  the  phase  function,  S,  characterize  the 
background  wave  field.  The  quantity  F  in  (2.14)  represents  the  diffraction 
factor  resulting  from  perturbations  in  depth,  h,  current  field,  and 
gradients  of  the  amplitude  function  A. 

Substitutions  of  (2.14)  -  (2.16)  into  (2.10)  yield  the  following 

approximate  equation  for  F: 

[2i  (k  +  ^)  +  (^  +  ^)]  .  VF  +  v2f  +  [k2  +  i  (2nk  •  u  -  2w 

it  •  u  +  iwv  •  U  +  iWw)]  F  -  0  ,  (2.17) 

where  G  -  CCg.  In  the  case  where  u  -  0,  the  above  equation  becomes 

2ik  •  VF  +  (^  +  ~)  •  VF  +  v2f  +  (k2  +  F  -  0.  (2.18) 

We  remark  here  that  the  second  term  in  (2.18)  represents  the  effects  of  the 
slopes  of  background  wave  amplitude  and  topography.  This  terra  was  ignored  in 
Tsay  and  Liu  (1982).  Equations  (2.17)  and  (2.18)  are  elliptic  equations.  In 
(2.17)  the  wave  nuraber  vector  k  reraains  a  unknown.  In  principle,  it  may  be 
found  by  solving  the  dispersion  relation  and  the  equation  describing  the 
irratationality  of  the  wave  nuraber  vector,  i.e.,  v  x  ic  -  0.  Equation  (2.13) 
can  be  expressed  as 

k2  -  (k2  -  k?)  +  (k?  -  k^)  (2.19) 
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where  is  wave  ixunber  corresponding  wily  to  depth  variation  (i.e.  -  gk 

tanh  k,h).  In  the  shallow  water  region,  one  can  use  the  following 
aproximation  (Liu,  1983) ; 


k2  -  kf  -  -  ^  (20  k  •  H)  .  (2.20) 

Thus,  (2.17)  can  be  approximated  to  be; 

[2i  (k  +  H^)  +  (^  +  ^)]  .  vF  +  i  [G(k5  -  k^) 

+  iwV  •  u  +  iWw  -  2w  k  •  u]  F  -  0.  (2.21) 

The  information  on  k  is  no  longer  needed  in  the  above  equation. 

We  may  now  introduce  the  parabolic  approximation  by  assuming  that  the 
diffraction  factor,  F,  varies  more  rapidly  In  the  direction  along  the  phase 
line  than  in  the  direction  of  wave  propagation  of  the  background  wave  field. 
Denoting  p  -  constant  and  a  -  constant  as  the  background  wave  rays  and  phase 
lines,  respectively,  we  approximate  (2.21)  to  be 


(2i  (k  +  y-)  +  ^  F,  ^  (^  +  ^  +  §^)  F,  vj  F  +  i 


[iwv  ■  u  +  iwW  +  G(k5  -  k^  )  -  2w  k  •  u]  F  -  0 


(2.21) 


where  (U,V)  are  the  current  velocity  components  in  the  a-  and  p-  directions, 
respectively  and  the  partial  derivatives  are  defined  as; 


^  h.g  da  ’  ^  'P  hp  dp 

v2  -  i_  IL  +  _1_  ri-  ^ 

P  u2  ^  h^h^  ^dp  dp 


(2.23) 

(2.2^) 


where  h^,  («  j3r/3«T()  and  h^  (-  |3r/3p|)  are  scale  factors,  giving  the  ratios 
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where  (-  \dr/d0\)  and  hp  (-  \dr/8p\)  are  scale  factors,  giving  the  ratio£ 
of  differential  distances,  dr,  to  the  differentials  of  the  coordinate 
"parameters".  Equation  (2.22)  is  the  well-known  Schrodinger  equation.  If 

the  coefficients  in  (2.22)  were  real,  the  equation  could  be  interpreted  as  a 
heat  equation  with  o  as  a  time-like  variable;  the  second  term  in  (2.22) 
represents  the  convection  and  the  third  term  denotes  diffusion  in  the 
p-direction. 

When  the  ambient  current  field  is  ignored,  a  similar  parabolic  wave 
equation  can  be  obtained  from  (2.18)  directly.  Thus, 


(2ik  + 


2A^ 

A 


Fa  + 


,2A, 


F/!  +  F  + 


*2 

(k 


iWw 


)  F  -  0. 


(2.25) 


2.2  The  Background  Wave  Field 

Once  the  modified  topography  is  chosen,  the  background  wave  field  can  be 
determined  numerically,  in  principle,  from  (2.15)  and  (2.16)  with  the 
appropriate  boundary  conditions.  If  the  modified  depth  is  assumed  to  be 
uniform  in  the  alongshore  dir  ction,  i.e.. 


h  -  h(x)  ,  (2.26) 

the  background  wave  field  can  be  expressed  analytically.  Employing  Snell’s 
law,  the  phase  function,  S,  is  readily  given  as 

S(x,y)  -  ^y  -  J  a  dx  ,  (2.27) 

where 

a(x)  -  k  cos^  , 

and 

8  -  k(x)  sinS  -  kg  sind^  ,  (2.28) 
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are  the  x-  and  y-  components  of  the  local  wave  number  vector  (k(x) , 
respectively,  and  5(x)  is  the  local  angle  of  incidence  (Figure  2.1).  The 
subscript  "o"  denotes  quantities  at  a  location  far  away  from  the  shoreline 
(x-0) .  Conservation  of  wave  energy  requires  the  local  wave  amplitude  to  be: 

.k  .  .g^.  ■2kf,hn  sinh  2kf,hrtv.1/2  ,  cosh  k  h 


A(x)  -  Aq  [(£-)  (^)  Q“Q)] 

k„  “  2k  h  +  sinh  2k  h 


cosh  k(jho 


(2.29) 

As  shown  by  Loxano  and  Liu  (1980),  the  curvilinear  coordinates  {p,a), 
representing  the  wave  rays  and  phase  lines,  can  be  expressed  as: 


r 

JXq 


p  "  (y-yo)  +  L  tantf  dx 


°  "  (y*yo)  -  L  *^0^^ 

JXo 


(2.30) 


(2.31) 


where  (XQ.yo)  is  an  arbitrary  reference  point.  Substitutions  of  hp  -  co%6 
and 

+hjj  -  sintf,  into  (2.22),  yield 

cot^«  (2i^  ^  21  f  Sin,  ^  I  ,  i  If)  |£ 


A  dp  G  dp  sin  2$  dp'  dp 

a2p  i  7  7 

+  ^  [iw  V  •  u  +  iw  W  +  G  (k,  -  k  ) 


-  2w  k  •  u]  F  -  0 


(2.32) 


In  the  case  of  no  ambient  current,  the  corresponding  parabolic  equation  for 
the  corresponding  parabolic  equation  for  the  diffraction  factor  becomes 


nrsrlp  .  2  dA  ^  1  3G.  3F  ^  .2  dA  ^  1  aC  ^ 

cot'd  (2i^  +  -z  TZ  +  n  Tl)  Fr  +  + 


dtf.  d? 


A  da  G  da^  da  'A  dp  G  dp  sin  2B  dp'  dp 


+  0  +  (k^  +  i^)  cosZd  F  -  0. 


(2.33) 


10 


Breakwater 


Note  that  (2.33)  reduces  to  the  equation  derived  by  Tsay  and  Liu  (1982)  if  the 
derivatives  of  A  and  G  and  the  energy  dissipation  tens  are  Ignored.  A 
numerical  scheme  will  be  presented  in  section  2.4  to  solve  (2.32)  and  (2.33). 
We  remark  here  the  transformation  given  in  (2.30)  and  (2.31)  breaks  down  in 
the  case  of  normal  incidence,  6  -0^.  Alternatives  are  presented  in  section 
2.5  and  2.6. 

2.3  A  Numerical  Algorithm  for  Generating  the  Modified  Topography 

To  apply  the  parabolic  approximation  method  described  in  the  previous 
section,  we  must  first  develop  a  scheme  for  generating  the  modified 
topography  h(x) .  Usually,  the  topographical  data  are  obtained  from  either 
direct  field  measurements  or  digitization  of  depth  contour  maps. 
Consequently,  the  depth  is  given  at  each  node  of  an  irregular  mesh  as  shown  in 
Figure  2.2.  The  modified  topography  can  be  generated  by  the  following  method: 

1.  Along  each  alongshore  cross  section  x  x^  (i  -  1,2,3,...,M)  there 
are  N  nodes  and  the  depth  at  each  node  is  denoted  as  hj  (J  -  1,2,3,...N). 

An  averaged  depth  along  a  cross  section  can  be  computed  as 


h(xi) 


1 

2 


(y^  -  yi) 


.  1 


1,2 . M 


(2.34) 


where  yj  is  the  y  coordinate  for  the  J-th  rode  along  the  cross  section.  Note 
that  the  averaging  process  is  being  weighted  by  the  distance  between  two 
adjacent  nodes. 


2.  The  modified  topography  h(x)  is  obtained  by  the  cubic  spline 
approximation  (Conte,  1965),  i.e. 


h(x) 


Ck,i  (x-xi)^*^ 


.  1-1.2 . M-1 


(2.35) 


12 


I  1 1  'I  m '  null  r 
•  +  — 4-4-l-*-4l44-4Ut44-4.J.-  + 

■  t.f  tfnw+- + t+«tf+-4- 

j."!  _  j,4.4.J.41Ui  iiliu.  J.J X 


Figure  2.2  Grid  Mesh  for  Digitized  Depth  and 
Average  Depth 
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where  the  coefficients  are  determined  by  matching  h(x)  with  the  average 

water  depth  h(xi)  along  each  cross  section  x^  and  by  requiring  the  first  and 
second  derivatives  of  (2.34)  to  be  continuous  at  each  node  x^. 

2.4  A  Numerical  Scheme  for  Solving  the  Parabolic  Wave  Equation 

The  parabolic  wave  equation  (2.32)  is  solved  by  a  finite-difference 
method  (Smith,  1978).  Since  the  equation  is  discretized  on  the  p  -  a  plane 
a  rectangular  grid  system  is  used  (Figure  2.3).  If  F(nAp,  mAa)  -  F^  denotes 
the  diffraction  factor  at  the  nodes.  (2.32)  can  be  rewritten  in  the  following 
finite -difference  form; 

cot^  ^  (.2i.fi  +  a^  +  a.2  +  aj )  (F^  -  +  r  (b^  +  b2  +  bj  +  b^) 

tw  (F^i  -  F?!t!)  +  (1  -  w)  (F^;+,  -  fS.i)1  +  r  [w  52  C’  + 

(1  -  w)  F^]  +  w  +  (1  -  w)  -  0  .  (2.36) 

where 


Jn  -  f?|.l  •  2  F?;  +  fS+1 
r  -  Ao/(Ap)2 

_  Ao  cos20  .  2 

Q  -  --  5  [iw  V  •  u  +  iuW  G  (kf 


k^) 


*1  - 


«2  - 


aJT’  +  AS 


.m+l  .m 
/An  ~  An 

m  Ao 


) 


pUrt-l 

/Sn__L-SD^ 
'  Ao  ' 


-  2w  k  •  u] 


•3  - 


^1  -  ~  (aS  -  aS.i) 

An 
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a)  p-<T  Plane  b)  Physical  Plane 

Figure  2.3  Relationship  between  Physical  Coordinates  and  Curvilinear  Coordinates 


(2.37) 


2  g: 


<  -  g“.,  ] 


b3 

b4 


sin  26 


m+l  . 
^n-1  } 


,jn+1 

2i  — ° — —  cos6 
m+1 
Gn 


and  w  is  a  weighting  factor  which  positions  the  value  of  F  and  the  derivative 
of  F  with  respect  to  O,  between  mA<r  and  (in+l)ACT.  In  (2.36)  and  (2.37)  the 
unspecified  values  of  6  are  evaltiated  at  The  finite  differences 

method  is  constructed  based  on  taking  forward  differences  in  the  wave 
propagation  direction  (<7-direction)  and  central  differences  in  the 
p-direction.  The  scheme  reduces  to  the  well-known  Crank-Nicolson  method  when 
the  vreighting  factor,  w,  is  0.5.  The  finite  difference  scheme  is 
unconditionally  stable  if  the  weighting  factor  is  greater  than  or  equal  to  0.5 
(Lax  and  Richtmyer,  1956).  In  the  case  where  the  ambient  current  is  zero,  the 
finite-difference  equation,  (2.36),  still  holds.  The  coefficients  aj  and  b4 
become  zero,  and  Q  term  in  (2.36)  is  redefined  as 


Q 


Ag  cos^^ 
G 


[  iwW  +  Gk2 ] 


(2.38) 


A  computer  program  was  written  to  solve  (2.36)  with  appropriate  boundary 
and  initial  conditions.  Solutions  are  first  obtained  on  the  p-a  plane  and  are 
then  converted  onto  the  physical  x-y  plane  through  the  coordinate 
transformation,  (2.30)  and  (2.31).  Although  an  efficient  numerical  scheme  has 
been  developed  to  perform  the  coordinate  transformation,  a  significant  amount 
of  computing  time  is  still  required  for  nearly  normal  incidence.  As  pointed 
out  before  the  transformation  breaks  down  at  normal  incidence.  To  remedy  this 
shortcoming,  two  approximated  approaches  are  introduced  in  the  following 
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sections.  The  advantages  and  disadvantages  of  these  approaches  will  be 
discussed  In  section  3. 

2.5  Approximation  Using  a  Rotated  Cartesian  Coordinate  System 

The  first  approximate  model  adopts  the  following  coordinate  system 
transformation: 

P  “  (y  -  y©)  cos  Oq  +  (x  -  Xq)  sin 

O  -  (y  -  y©)  Bq  -  (x  -  Xq)  c©s  8q  ,  (2.39) 

where  9q  is  a  reference  angle  at  a  reference  pclnt,  (x^.y,,)  (Figure  2.4).  The 
angle  6q  Is  preferably  chcsen  as  the  angle  ©f  wave  Incidence  at  the  seaward 
extent  ©f  the  c©mputatl©nal  d©maln.  The  c©©rdlnates  {p,a)  represent  a  r©tated 
Cartesian  system;  the  a  -  axis  c©lncldes  with  the  dlrectl©n  ©f  Incident  wave 
prcpagation.  Because  the  Iccal  angle  ©f  Incidence  beccmes  smaller  as  waves 
propcgate  toward  the  ^©rellne,  the  difference  between  (2.39)  and  the 
curvilinear  coordinate  described  by  (2.30)  and  (2.31)  becomes  significant  when 
9q  Is  large  and  when  waves  propagate  Into  shallower  water. 

Applying  the  parabolic  approximation  to  (2.21)  with  (2.39)  and  h^  -  h^  - 
1,  we  obtain 


(2ik  cos^  +  +  I  ^  i  If)  If  +  (2ik  sin  ^ 


1  ac.  ar  ^  azp  i  „ 

G  dp^  dp  Jp^  G 


u  +  iwW  + 


G(kf 


k^ 


)  -  2wk 


u)]  F  -  0 
(2.40) 


where  a  -  a  -  is  the  angle  between  directions  of  local  incidence  and  wave 

Incidence  along  the  initial  computational  line.  By  using  the  same  finite 
difference  approximations  as  those  given  In  section  2.4,  (2.40)  can  be 

discretized  In  the  following  form: 
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f  X 


Figure  2.5  Relationship  between  Physical  Coordinates 
and  Fixed  Cartesian  Coordinates 
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(2ik  cos  +  83  +  83)  -  F^)  +  r  (ik  sin  +  bj  +  b4) 

[w  (F^tl  *  F^J)  +  (1  -  w)  (F^+,-F^.l)]+r  [w  F^'^Vd-W)  ^2  F^J+w  Q^’ 

+  (1  -  w)  qT'  fS  -  0  .  (2.41) 

where  ,  a2 ,  a3 ,  b^ ,  b2 ,  and  b4  are  again  defined  by  (2.37). 


2.6  Approximation  Using  a  Fixed  Cartesian  Coordinate  System 

The  second  approximate  model  uses  the  regular  Cartesian  coordinate  with 
a-axis  pointing  toward  the  shoreline  (Figure  2.5),  i.e. 

a  -  Xq  -  X  , 

P  -  y  -  yo  .  (2.42) 

The  second  approximation  approaches  the  first  approximation,  (2.39),  when  the 
angle  of  incidence,  Bq,  becomes  very  small.  Equation  (2.22)  can  now  be 
reduced  as: 


4  ...  2iUw  ^  2  SA  1  ac.  aF  ^  ,  -  1  ac  ^  2iVw,  aF  ^  a2F 

(2ik  costf  +  — ^  ^  +  (2ik  sintf  ^  +  -j^)  ^  ^ 


G  dfi 


+  i  [iw7  •  u  +  iwW  +  G(kf  -  k^  )  -  2w  k-  u]  F  -  0. 


dp  ap2 
(2.43) 


The  background  amplitude.  A,  is  a  constant  along  a  contour  line  parallel  to 
the  shoreline,  i.e.  Bk/dp  -  0.  The  finite  difference  representation  of  (2.43) 
can  be  written  as: 

(2ik  cos9  +  ai  +  a2  +  a3 )  (F^^^  •  F^)  +  r  (ik  sinS  +  b2  +  b4)  [w  (F^+]  - 

+  <1  ■  *)  <f;+i  -  +  r  (w  fJ*'’  +  (1  -  w)  si  fJj  + 

.  qS*’  fS*'  *  (I  -  «)  Qf  F?  -  0.  (2.W) 

Since  the  coordinate  system  used  in  this  approximation  does  not  depend  on  the 
angle  of  incidence,  a  single  grid  system  can  be  used  for  a  wide  range  of 
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angles  of  incidence.  The  error  of  the  parabolic  approximation  may  become 
significant,  when  the  angle  of  incidence,  6 q,  becomes  large.  The  accuracy  of 
the  approximate  models  is  discussed  in  section  3. 

2.7  Boundary  Conditions 

To  solve  the  finite  difference  equation,  (2.36),  (2.41)  or  (2.44), 

lateral  and  initial  boundary  conditions  mist  be  prescribed.  Since  the 
numerical  model  is  designed  to  study  wave  propagation  in  an  open  coastal 
region,  the  topography  is  assumed  to  be  uniform  in  the  alongshore  direction 
far  away  from  the  region  of  interest,  i.e.,  as  y  -►  ±  «o.  Therefore,  the 
boundary  condition  along  the  lateral  boundaries,  p  “  P  “  Pb*  requires 

at  p  -  Pa  and  p^  ,  (2.45) 

at  p  -  Pa  and  p^  .  (2.46) 

Although  (2.46)  is  a  further  simplification  of  (2.45),  numerical  results, 
using  (2.45)  or  (2.46),  do  not  differ  significantly  as  long  as  the 
computational  domain  is  large. 

Inside  the  computational  domain,  breakwaters  may  be  Installed.  These 
breakwaters  are  represented  by  straightline  segments  without  thickness. 
Along  both  sides  of  a  breakwater  no-flux  boundary  conditions,  n  •  -  0 

are  applied,  where  n  is  the  unit  normal  along  the  breakwater.  Using  (2.14) 
and  applying  the  parabolic  approximation,  one  can  derive  an  approximate 
bovindary  condition  along  a  breakwater  (Tsay  and  Liu,  1984); 

g  *  C,  F  -  0  ,  (2.47) 


F  -  1 
or 
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where 


Cg  -  ik  sintf 


cot^  tan^R  1 
1  -  tantf  tantfg 


for  the  curvilinear  coordinate  system; 


(2.48) 


C  .  tw  sin  (g+tfR) 
cos  (So+tfa) 


(2.49) 


for  the  rotated  Cartesian  coordinate  system,  and 


c  .  "in  (H+th) 
B  cos  0 


(2.50) 


for  the  fixed  Cartesian  coordinate  system.  The  angles  $  and  are  the  local 
incident  wave  angle  and  the  inclination  angle  of  the  breakwater,  respectively. 
As  shown  in  Figure  2.1,  tfg  is  between  +  w/2  and  -  w/2 . 

The  appearance  of  a  breakwater  divides  the  computational  line  into  two 
separate  parts  and  grid  points  do  not  necessarily  fall  the  solid  boundary 
(Figure  2.6).  The  boundary  condition,  (2.47)  must  be  evaluated  separately  at 
point  J'  (Lin,  1986).  Using  Taylor's  series  expansion,  the  quantity  F j ,  can 
be  evaluated  as 


aF 


Fj,  -  Fj.,  +  4^1  +  O(Apf) 


F  -  F 


(2.51) 


(^) 


-  Lpy  +  0(Ap,  ) 

F  -F  F  -2F  +F 

- ^  —Jp'^  ^ 


2  .  2 


(2.52) 


Substitution  of  (2.51)  and  (2.52)  into  (2.47)  yields 
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4Api  -  2C  Ap2 

P  a  ^  p 

j  2Ap^  +  Ap  +  CgAp^Ap  J-1 


Ap  -  2Ap,  +  C  ApiAp 

+  - £ -  p 

2Apf  +  Ap  +  CgAp^Ap  j-2 


(2.53) 


For  the  expanding  computational  domain  on  the  left-hand  side  of  the 
breakwater,  Fj+^  may  be  needed  in  addition  to  Fj .  It  may  be  extrapolated  from 
Fj.i  and  Fj  by  first  order  approximation. 

Fj+1  -  2Fj  -  Fj.i  (2.54) 

Similarly,  on  the  right-hand  side  of  the  breakwater 


Fj.  “  Fj  -  ^  ^PZ  +  0(4P2) 


F  -  F 

-  Fj  -  AP2  +  0(Ap2  .  Ap? ) 

.  ^  0(Ap2,  Ap|) 

Substitution  of  (2.55)  and  (2.56)  into  (2.47)  yields 

4Ap2  +  2CgAp2  Ap  -  2Ap2  -  C_ApAp2 

F^  +  - — :rr - ^ F. 


(2.55) 


(2.56) 


(2.57) 


J-1  Ap  +  2Ap2  •  CgApAp2  J  Ap  +  2Ap2  -  CgApAp2  j+1 
Fj.2  may  be  approximated  by  first  order  extrapolation  from  Fj  and  Fj.^  as 


Fj.2  -  2Fj.,  -  Fj 


(2.58) 


The  present  finite -difference  method  allows  that  the  number  of  nodal  points  on 
each  side  of  breakwater  to  increase  by  one  at  each  marching  step.  To  avoid 
the  instability  created  by  the  boundary  condition,  the  following  condition 
should  be  satisfied  (Tsay  and  Liu,  1984): 

|Cb  ApI  <  1  (2.59) 
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An  initial  boundary  condition  Is  usually  prescribed  along  a  line  where  the 
wave  amplitude  can  be  determined  by  using  linear  wave  ray  theory.  Therefore, 
the  diffraction  factor  will  be  equal  to  one; 

F  “•  1  at  ff  -  0  .  (2.60) 

The  implementation  of  the  boundary  conditions  (2.45)  and  (2.60)  in  a  finite 
difference  form  is  straight-forward,  while  central  difference  discretization 
is  used  to  approximate  (2.46). 

2.8  Energy  Dissipation 

When  waves  propagate  into  shallow  water,  energy  dissipation  caused  ly 
bottom  friction  and  wave  breaking  may  become  important.  To  incorporate  these 
energy  dissipation  effects  into  the  parabolic  approximation  method, 
analytical  expressions  for  V  must  be  specified. 

Various  analytical  expressions  of  W  have  been  proposed  for  different 
physical  phenomena.  If  the  energy  dissipation  caused  by  a  turbulent  boundary 
layer  is  of  conceim,  the  function  tf  may  be  written  as  (Liu  and  Tsay,  1985): 


.  16  f  kZc,  hi _ 

3n  sinh  kh  (2tch  +  slnh  2kh) 


(2.61) 


where  f  is  a  friction  factor.  Note  that  because  W  is  proportional  to  the 
diffraction  factor,  F,  the  term  representing  the  energy  dissipation  in  the 
governing  equation  is  nonlinear  in  F.  In  the  numerical  computations,  either 
an  iterative  scheme  nust  be  used  or  this  term  is  linearized.  The  simplest 
approach  is  to  use  the  local  wave  amplitude  |FA|  from  the  previous 
computational  line  in  (2.61). 

In  the  case  of  breaking  waves,  an  empirical  wave  height  decay  model  has 


been  suggested  by  Dally,  Dean  and  Dalrymple  (1984). 


In  terms  of  the 


dissipation  function  W,  the  decay  model  can  be  written  as 


W 


(2.62) 


where  K  and  7  are  empirical  constants.  Calibrating  with  laboratory  data, 
Dally,  Dean  and  Dalrymple  (1984)  suggested  that  K  -  0.15  and  7  -  0.4  should  be 
used.  Of  course  (2.62)  is  valid  only  after  waves  start  to  break,  i.e.  |f;|/h  > 
0.4.  Waves  stop  breaking  when  |tj|/h  <  0.2  and  U  becomes  zero.  Once  again, 
the  W  given  in  (2.62)  is  nonlinear  in  the  free  surface  displacement.  In  the 
computations  W  is  linearized  by  using  17 -values  from  the  previous 
computational  line. 


I 
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3.  MODEL  VERIFICATION 

The  numerical  scheme  presented  in  the  previous  section  was  verified  with 
several  sets  of  laboratory  and  field  data.  In  the  case  where  the  ambient 

current  is  zero  and  a  breakwater  does  not  exist,  refraction  and  diffraction 

is  caused  entirely  by  the  bathymetry.  Three  sets  of  data  were  used  to 
investigate  the  model  accuracy  for  this  case:  (1)  laboratory  measurements  of 
normally  incident  waves  propagating  over  a  submerged  shoal  on  an  otherwise 
constant  depth  (Maruyama  1981),  (2)  wave  basin  measurements  of  obliquely 

incident  waves  propagating  over  a  submerged  shoal  on  a  sloping  beach  (Berkhoff 
et  al .  1982),  and  (3)  field  measurements  of  wave  propagation  over  varying 

topography  (Ebersole,  et  al .  1986).  Laboratory  data  of  wave  amplitudes  in  the 
neighborhood  of  shore -connected  breakwaters  (Hales  1980,  Isobe  1986)  was  also 
used  to  verify  the  capability  of  the  model  in  dealing  with  cases  involving 

multiple  breakwaters. 

3.1  Normally  Incident  Waves  Propagating  Over  a  Submerged  Shoal 

Experimental  data  for  wave  propagation  over  a  submerged  shoal  were 

obtained  in  a  wave  tank  as  shown  in  Figure  3.1  (Maruyama  1981).  Water  depths 
in  the  tank  are  given  by  the  following  expression: 

h  -  ho  -  0.43m  for  r  -  4(x-Xc)^  +  (y-yc)^  ^  “  l-25m; 

h  -  -Zg  -  [r2  -  (x  -  Xc)2  .  (y  .  yc)^ 1  for  r  i  r,  ,  (3.1) 

where  r  is  a  radial  distance  measured  from  the  shoal  center,  r^  is  the  radius 

of  the  shoal,  hg  is  the  depth  in  the  constant  depth  region  of  the  tank,  (xo, 

yc»  2c)  -  (10m,  2.5m,  -2.884m)  denotes  the  coordinate  of  the  center  of  the 

shoal  and  R  -  2.754m. 


Because  the  incident  angle  is  0° ,  rotated  Cartesian  coordinates  given  in 


Figure  3.1  Sketch  of  the  Geometry  of  a  Submerged  Shoal  on  a  Constant 
Depth 
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(2.39)  become  the  same  as  the  fixed  Cartesian  coordinates  given  in  (2.42). 
The  fixed  coordinate  was  used  in  these  tests.  Furthermore,  due  to  the 
symmetry  properties  of  the  experimental  set-up,  numerical  results  are 
presented  for  only  half  of  the  tank.  Model  results  are  compared  with 

measured  data  to  investigate  the  validity  of  the  model.  Also,  the  effect  of 
varying  grid  sizes  on  the  solution  are  investigated  in  this  series  of  tests. 
The  combinations  of  grid  sizes  used  to  simulate  case  1  vhere  T  -  1.79  sec.,  H 
-4.85  cm  and  hg  -  0.5m  are  given  in  Table  3.1.  The  corresponding  wavelength 
in  the  constant  water  depth  region  is  3.54m.  Therefore,  the  largest  grid  size 
(0.5m)  is  about  1/7  of  the  wavelength;  and  since  the  diameter  of  the  ^oal  is 
2.5m  there  are  less  than  five  points  representing  cross  sections  of  the 
submerged  shoal  for  this  grid  size. 


CASE 

Ax(ffl) 

Ay(m) 

CPU (hr) 

a 

0.1 

0.1 

0.02 

b 

0.1 

0.2 

0.02 

c 

0.1 

0.5 

0.01 

d 

0.2 

0.1 

0.01 

e 

0.2 

0.2 

0.00 

f 

0.2 

0.5 

0.00 

g 

0.5 

0.1 

0.01 

h 

0.5 

0.2 

0.00 

i 

0.5 

0.5 

0.00 

Table  3.1.  Grid  sizes  for  numerical  experiments 


Numerical  results  along  the  cross  sections  x  -  7m  and  9m,  as  well  as  y  - 
2.5m  (centerline  of  the  wave  tank)  are  shown  in  Figure  3.2.  For  comparison 
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0.0  0.5  1.0  1.5  2.0 

Y  (M) 

Figure  3.2a  Comparison  of  Wave  Heights  between  Numerical  Results  and  Experimental  Data;  xxx 
and  +++  experimental  measurements;  o-o-o  Ax=Ay=0.1m,  a— a— a  ,  Ax=0.1m,  Ay=0.2m;  -.O'-*  , 
Ax=0. Im, Ay=0,5m. 
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Figure  3.2b  Comparison  of  Wave  Heights  between  Numerical  Results  and  Experimental  Data;  xxx 
and  +++  experimental  measurements;  o-o-o  Ax=Ay=0.1m,  a — a— a,  Ax=0.1m,  Ay=0.2m;  •••o--*  » 
Ax=0.1m,  Ay=0.5m. 
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Figure  3. 2d  Comparison  of  Wave  Heights  between  Numerical  Results  and  Experimental  Data;  xxx 
and  +++  experimental  measurements;  o-o-o  Ax=0.2m,  Ay=0.1m,  a— a — a  Ax=Ay=0.2m,  -<>•••  Ax=0.2m, 

Ay=0.5m. 
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Figure  3.2e  Comparison  of  Wave  Heights  between  Numerical  Results  and  Experimental  Data;  xxx 
and  +++  experimental  measurements;  o-o-o  Ax=0.2m,  Ay=0.1m,  ^ — -a — £>,  Ax=£y=0.2m,  ..-o—  Ax=0.2m, 
Ay=0.5m. 
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Figure  3.2g  Comparison  of  Wave  Heights  between  Numerical  Results  and  Experimental  Data,  xxx 
and  +++  experimental  measurements;  o-o-o,  Ax=0.5  m,  Ay=0.1m,A — ,  Ax=0.5m,  Ay=0.2m,  — < 
,  Ax=  Ay=0.5m. 
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Figure  3.2h  Comparison  of  Wave  Heights  between  Numerical  Results  and  Experimental  Data;  xxx 
and  +++  experimental  measurements;  o-o-o,  Ax=0.5  m,  Ay=0.1m,  a— Ax=0.5m,  Ay=0.2m,  — < 
Ax=  Ay=0. 5m. 
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the  experimental  data  are  also  plotted.  Ihe  over -all  difference  in  wave 
amplitude  using  grid  sizes  equal  to  0.2m  and  0.1m  are  not  significant.  When 
the  grid  sizes  are  equal  to  O.Sm,  numerical  solutions  change  drastically.  In 
this  case,  model  accuracy  depends  more  on  the  adequacy  of  the  grid  size  to 
represent  the  topography  rather  than  the  wavelength.  In  Table  3.1  the 
computing  times  required  on  a  VAX  11/750  to  calculate  the  wave  field  from  x  - 
15  m  to  4m  are  shown  for  reference. 

Numerical  results  agree  with  the  experimental  data  in  general.  The  two 
sets  of  experimental  data  shown  represent  measurements  collected  on  both  sides 
of  the  centerline.  Dlscrepencies  between  the  numerical  solutions  and 
experimental  data  could  be  caused  by  the  non-unifoirmity  of  the  wave  amplitude 
across  the  wave  tank.  Note  that  the  two  sets  of  data  should  coincide,  if  the 
initial  conditions  were  uniform. 

For  reference,  sample  input  files  of  DEPTH.  DAT,  LDC.  DAT  are  listed  In 
Appendix  A.  The  format  of  these  files  is  explained  in  section  4. 

3.2  Obliquely  Incident  Waves  Propagating  Over  a  Submerged  Shoal  on  a  Sloping 
Bottom 

Berkhoff  et  al.  (1982)  conducted  laboratory  experiments  to  examine  wave 
propagation  over  a  submerged  shoal  on  a  sloping  bottom.  Ihe  slope  of  the 
bottom  topography,  s,  is  0.02  and  the  outer  edge  of  the  shoal  can  be  described 
by  (Berkhoff  et  al.  1982;  Dingemans  1985): 

(X_^_2^)2  ^  (Z-I-yc)Z  .  1  (3  2) 

where  (x^.,  y^)  -  (17.0156m,  Oto) .  The  sloping  beach  blends  into  a  region  with 
constant  depth,  h  -  0.45m,  at  a  distance  of  22.5m  from  the  shore.  The 
bathymetry  is  given  as 
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h  -  sx,  for  ]  >  1  and  x  22.5m, 

h  -  .  0.3  .  0.5  .  ,3^,.  .  ,3^,— 

for  (^-3  +  (y-^yc)^  <  1 

h  -  0.45m  ,  X  >  22.5m  (3.3) 

In  the  laboratory  experiments  the  incident  wave  train  had  a  period  of  1.0  sec . 
with  an  angle  of  incidence,  6q  equal  to  -20  degrees  relative  to  x-axis  in  the 
constant  depth  region.  Wave  amplitudes  were  measured  along  eight 
cross-sections  in  terms  of  a  rotated  coordinate  system  (x' ,  y' )  (See  Figure 
3.3): 

x'  -  (x  -  Xg)  cos  ^0  -  (y  -  Yc)  sin  Sq 

y'  -  (x  -  Xg)  sin  +  (y  *  Vc^  cos  (3.4) 

Numerical  results  are  obtained  from  all  three  models  using  different 
coordinate  systems.  The  accuracy  and  efficiency  of  these  models  are  compared. 
To  have  meaningful  comparisons,  identical  grid  sizes  are  used  for  the  three 
models.  Different  angles  of  incidence,  6q  -  -ICP  ,  -20°  and  -30°  are  used  in 
the  computations.  For  the  case  where  the  incident  angle  is  -20°,  the  accuracy 
of  three  models  are  first  verified  by  comparing  with  laboratory  measurements. 
As  shovm  in  Figures  3.4,  the  wave  field  in  the  neighborhood  of  caustics  is 
predicted  reasonably  wel?.  by  the  present  models;  both  the  location  of  maximum 
magnitude  and  the  variation  of  wave  amplitude  agree  reasonably  with 
experimental  data.  There  is  almost  no  difference  between  results  using 
curvilinear  coordinates  and  those  using  the  rotated  Cartesian  coordinates. 
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However,  an  appreciable  difference  of  amplitude  distribution  is  observed 
between  results  obtained  using  the  fixed  Cartesian  coordinates  model  and  the 
other  two  models.  Difference  becomes  greater  for  larger  angles  of  incidence 
(see  Figures  3.5  for  Figures  3.6  for  6q  -  -30°).  None  of  the 

three  models  accurately  predicts  the  secondary  peaks  of  amplitude  distribution 
along  cross  sections  defined  ty  constant  x'  values.  This  is  partly  because 
any  nonlinearity  has  been  ignored  in  the  present  models.  Much  of  the 
deviation  between  model  results  and  measured  data  can  be  eliminated  by 
including  nonlinear  effects.  (Kirby  and  Dalrymple,  1984;  Dingemans  and  Radder , 
1986). 

In  Table  3.2,  both  the  required  CPU  times  (on  VAX  11/750)  and  numbers  of 
nodal  points  are  summarized  for  Act  -  Ap  —  0.25m.  Due  to  the  effects  of  the 
scaling  factors  used  in  the  coordinate  transformations,  the  number  of  grid 
points  required  in  the  ctirvilinear  coordinates  model  increases  very  quickly  as 
the  incident  angle  approaches  normal  Incidence  (the  curvilinear  coordinate 
transformation  becomes  invalid  for  normal  incidence).  Consequently,  the  CPU 
time  increases  significantly.  Both  Cartesian  coordinate  formulations  involve 
scaling  factors  of  1;  therefore,  the  number  of  nodal  points  and  CPU  time  do 
not  change  for  different  incident  angles.  For  a  particular  angle  of  wave 
incidence,  comparisons  of  CPU  times  show  that  most  of  computational  effort 
arises  from  calculations  associated  with  the  coordinate  transformation.  Prior 
to  computing  the  wave  field,  water  depths  along  several  cross-sections  are 
digitized  and  stored  in  a  file  of  DEPTH.DAT  with  the  corresponding  coordinates 
in  file  of  LOC.DAT  (See  Appendix  B). 
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Figure  3.3  Sketch  of  the  Geometry  of  a  Submerged  Shoal  on 
Sloping  Beach 
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Figure  3.4b  Comparison  of  Wave  Amplitudes  between  Numerical  Results  and  Laboratory  Data,  0=-20O; 

0  0  0  Experimental  Measurements;  Curvilinear  Coordinates;  +-•-+,  Rotated  Cartesian  Coordinates 

and  x-x-x  ,  Fixed  Cartesian  Coordinates. 
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rigure  tompanson  of  Wave  Amplitudes  between  Numerical  Results  and  Laboratory  Data,  0=-20O; 

000  Experimental  Measurements;  Curvilinear  Coordinates;  + — +,  Rotated  Cartesian  Coordinates 

and  x-x-x  ,  Fixed  Cartesian  Coordinates. 
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Figure  3.4e  Comparison  of  Wave  Amplitudes  between  Numerical  Results  and  Laboratory  Data,  0=-20O; 

0  0  0  Experimental  Measurements;  Curvilinear  Coordinates;  +-•-+,  Rotated  Cartesian  Coordinates 

and  x-x-x  ,  Fixed  Cartesian  Coordinates. 


Figure  3.4f  Comparison  of  Wave  Amplitudes  between  Numerical  Results  and  Laboratory  Data,  0=-20O; 

000  Experimental  Measurements;  Curvilinear  Coordinates;  + — +,  Rotated  Cartesian  Coordinates 

and  XXX  ,  Fixed  Cartesian  Coordinates. 


Figure  3.4g  Comparison  of  Wave  Amplitudes  between  Numerical  Results  and  Laboratory  Data,  0=-20  ; 

000  Experimental  Measurements;  Curvilinear  Coordinates;  +-•-+,  Rotated  Cartesian  Coordinates 

and  X'XX  ,  Fixed  Cartesian  Coordinates. 
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Figure  3,5a  Comparison  of  Normalized  Wave  Amplitude  between  Numrical  Results,  =-10°,  a-a-a: 
Curvilinear  Coordinates,  + — +:  Rotated  Cartesian  Coordinates,  and  x-x  x:  Fixed  Cartesian  Coordinates. 
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Figure  3.5b  Comparison  of  Normalized  Wave  Amplitude  between  Numrical  Results,  =-10O,  a-a-a: 
Curvilinear  Coordinates,  +-•-+:  Rotated  Cartesian  Coordinates,  and  xx-x:  Fixed  Cartesian  Coordinates. 
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Figure  3.5d  Comparison  of  Normalized  Wave  Amplitude  between  Numrical  Results,  =-10°,  a-a-a: 
Curvilinear  Coordinates,  + — +:  Rotated  Cartesian  Coordinates,  and  x-x-x:  Fixed  Cartesian  Coordinates 
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Figure  3. 5e  Comparison  of  Normalized  Wave  Amplitude  between  Numrical  Results,  =-10°,  a-a-a: 
Curvilinear  Coordinates,  +-•-+:  Rotated  Cartesian  Coordinates,  and  x-x-x:  Fixed  Cartesian  Coordinates. 
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Figure  3.6b  Comparison  of  Normalized  Wave  Amplitude  between  Numerical  Results,  6 =-30O,A-A-Zi: 
Curvilinear  Coordinates,  +-•-+:  Rotated  Cartesian  Coordinates,  and  x-xx;  Fixed  Cartesian  Coordinates. 
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Figure  3.6c  Comparison  of  Normalized  Wave  Amplitude  between  Numerical  Results,  0 =-30O,a-a-a: 
Curvilinear  Coordinates,  +-•-+:  Rotated  Cartesian  Coordinates,  and  xxx:  Fixed  Cartesian  Coordinates. 
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Figure  3.6d  Comparison  of  Normalized  Wave  Amplitude  between  Numerical  Results,  0 =-30°,^^-^-^: 
Curvilinear  Coordinates,  +-•-+:  Rotated  Cartesian  Coordinates,  and  x-x-x:  Fixed  Cartesian  Coordinates. 
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Figure  3. 6e  Comparison  of  Normalized  Wave  Amplitude  between  Numerical  Results,  ^  =-30O,a-a-a: 
Curvilinear  Coordinates,  + — +:  Rotated  Cartesian  Coordinates,  and  x-x-x:  Fixed  Cartesian  Coordinates. 


Model  1 
Curvilinear 
Coordinate 

Model  2 

Fixed  Cartesian 
Coordinate 

Model  3 

Rotated  Cartesian 
Coordinate 

1 

1 

o 

o 

M  -  600,  N  -  200 

CPU  -  0.30  hr. 

M  -  80,  N  -  200 

CPU  -  0.05  hr. 

M  -  80,  N  -  200 
CPU  -  0.03  hr. 

1 

1 

O 

o 

M  -  300,  N  -  200 

CPU  -  0.20  hr. 

M  -  90,  N  -  200 

CPU  -  0.05  hr. 

M  -  80,  N  -  200 
CPU  -  0.03  hr. 

e  -  -30° 

M  -  220,  N  -  200 

CPU  -  0.13  hr. 

M  -  95,  N  -  200 

CPU  -  0.07  hr. 

M  -  80,  N  -  200 
CPU  -  0.04  hr. 

Table  3.2.  CPU  time  and  number  of  nodal  points  for  different  incident  waves 
in  three  models 


3.3  Waves  over  Varying  Topography:  A  Field  Case 

The  three  models  are  applied  to  simluate  prototype  wave  conditions 
observed  in  the  vicinity  of  the  Coastal  Engineering  Research  Center  Field 
Research  Facility  at  Duck,  North  Carolina.  Numerical  results  are  compared  for 
measurements  with  several  different  wave  conditions,  as  shown  in  Table  3.3. 


Case 

Date 

Time 

(GMT) 

Ho  (m) 

T(sec) 

6q  (deg) 

Tide  (m)  Date  of 

Bathymetry 

Measurement 

1 

10-13-82 

1300 

1.95 

13.21 

23 

0.12 

10-16-82 

2 

10-13-82 

1400 

1.87 

14.22 

25 

-0.18 

10-16-82 

3 

10-15-82 

1210 

0.78 

12.34 

25 

0.78 

10-16-82 

4 

10-17-82 

1200 

1.56 

6.87 

-43 

0.91 

10-16-82 

5 

10-25-82 

1900 

3.10 

12.34 

25 

0.68 

10-27-82 

6 

10-25-82 

2000 

2.95 

12.34 

25 

0.63 

10-27-82 

Table  3.3.  Wave  conditions  of  CERC  field  experiment 
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Figure  3.7  Bathymetry  Contours  near  CERC  Field  Research  Facility 
October  16,  1982 


Figure  3.8  Bathymetry  Contours  near  CERC  Field  REsearch  Facility 
October  27,  1982 
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CASE  2  H  =  1.87  M 
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Figure  3.9b  Comparison  of  Numerical  Results  of  Three  Models  with  Field  Measurements;  ooo  field  data 
- Curvilinear  Coordinates,  . Rotated  Cartesian  Coordinates, - Fixed  Cartesian  Coordinates. 
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CASE  4 


CASE  6  H  =  2.95  M 
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Bathymetric  data,  in  digitized  form,  were  provided  by  the  CERC.  For  the 
bathymetry  measured  on  October  16 ,  1982 ,  depth  data  viere  given  at  each  nodal 
point  of  a  75  X  50  grid  mesh;  the  grid  sizes  were  tx.  -  12m  and  Ay  -  24m. 
Bathymetry  contours  for  this  survey  are  presented  in  Figure  3.7.  For  the 
bathymetry  measured  on  October  27,  1982,  digitized  water  depths  were  available 
for  the  nearshore  portion  of  the  same  grid  mesh;  however,  the  seawardmosC  22 
grid  lines  were  not  available.  Water  depths  beyond  the  last  surveyed  point  in 
the  offshore  direction  was  assumed  to  remain  unchanged  since  October  16,  1982. 
The  "composite"  bathymetry  used  to  represent  conditions  on  October  27  is  shown 
in  Figure  3.8.  Note  that  there  is  a  significant  depression  in  the  bottom 
topography  near  the  tip  of  the  pier  for  both  data  sets.  Field  measurements  of 
the  incident  wave  parameters  and  tide  elevation  for  each  test  case  are  also 
summarized  in  Table  3.3. 

In  all  computations,  grid  sizes  of  La  -  Lp  -  10m  have  been  used  so  that 
the  topographical  variations  are  well  represented  in  the  models.  Comparisons 
between  field  measurements  and  numerical  results  from  all  three  models  are 
given  in  Figure  3.9.  Numerical  results  obtained  from  the  fixed  Cartesian 
coordinate  model  and  from  the  curvilinear  coordinate  model  agree  reasonably 
well  with  the  field  data.  The  results  from  the  rotated  Cartesian  coordinate 
model  become  invalid  in  the  shallow  water  because  the  effects  of  lateral 
boundaries  have  reached  the  pier  see  (Figure  3.10).  This  shortcoming  could  be 
remedied  by  enlarging  the  computational  domain  and  by  creating  artificial 
water  depth  data  near  the  shore.  The  required  CPU  times  for  different  runs 
are  listed  in  Table  3.4. 
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Case 


Coordinates  Option 


Curvilinear  Rotated  Cartesian  Fixed  Cartesian 


1 

0.35 

0.08 

0.06 

2 

0.35 

0.08 

0.06 

3 

0.29 

0.08 

0.06 

4 

0.15 

0.20 

0.05 

5 

0.29 

0.08 

0.05 

6 

0.29 

0.08 

0.05 

Table  3.4  Computing  Cost  for  CERC  cases  (CPU  Time,  Hour) 


3.4  Wave  Propagating  Over  Currents 

Because  the  lack  of  high  quality  laboratory  and  field  experimental  data 
for  the  wave - current  interaction  problem,  the  present  model  is  applied  to  a 
theoretical  problem  which  was  originally  studied  by  Authur  (1950) .  Later  this 
problem  was  re 'investigated  by  Liu  (1983)  and  Kirby  et  al.  (1984).  As  shown 
in  Figure  3.11,  a  rip-  current  system  exists  on  a  uniform  sloping  beach  with  a 
slope  of  0.02.  The  current  velocity  is  described  as 


u 


V 


0.144  X  F(^)  F(^) 

X  2  X 

-3.60  [2  -  (^)  ]  F(^)  I  F(a)  da 


with 


F(a)  -  — ^  exp  (-  0^/2) 

<r27~ 


(3.5) 

(3.6) 

(3.7) 


where  the  length  and  the  time  units  arc  in  feet  and  seconds,  respectively. 
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Authur  (1950)  constructed  a  set  of  wave  rays  for  a  train  of 
monochromatic  waves  with  an  8  second  periods.  The  wave  rays  are  shown  in 
Figure  3.12.  Due  to  the  wave  refraction  over  an  opposing  current,  many 
crossings  appear  over  currents.  Therefore,  the  linear  ray  theory  is  not 
applicable  to  this  problem. 

Because  the  incident  angle  is  0°,  only  the  model  using  fixed  Cartesian 
Coordinates  is  applicable.  The  calculated  wave  amplitude  distributions  along 
different  sections  are  shown  in  Figure  3.13,  normalized  by  the  amplitude,  a^  - 
1  ft  at  X  -  1000  ft  from  the  shoreline.  In  the  numerical  computations,  a 
unifrom  gird  system  is  used;  Ax  -  Ay  -  10m.  The  present  numerical  results  are 
in  excellent  agreement  with  those  obtained  by  Liu  (1983);  the  differences 
between  these  two  sets  of  results  are  not  plottable.  Amplitudes  due  to 
shoaling  without  the  effects  of  currents,  are  shown  in  Figure  3.13f. 
Excellent  agreement  is  also  demonstrated. 

It  is  apparent  the  wave  amplitude  becomes  very  large  due  to  the  focusing 
>  of  wave  energy  by  opposing  current.  The  criterion  of  wave  breaking,  (2.62), 
is  applied  in  this  case  to  simulate  the  transformation  of  waves  in  the  surf 
zone  (see  Figure  3.13).  The  wiggles  appearing  in  the  wave  amplitude  in  the 

surf  zone  seems  to  suggest  that  the  breaking  wave  criterion  used  in  the  model 
over-estimate  the  local  energy  dissipation. 

In  the  numerical  computation,  current  fields  are  digitalized  into  files 
of  CURRNX.DAT  and  CURRNY.DAT.  Together  with  input  files  DEPTH.DAT,  LOC.DAT, 

IN. DAT  and  sample  output  file  OUT01.DAT,  they  are  shown  in  the  Appendix  D. 

3 . 5  Waves  Around  Breakwaters 

The  present  models  can  be  applied  to  calculate  the  wave  field  in  the 

neighborhood  of  multiple  breakwaters.  For  the  purpose  of  model  verification 
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Figure  3.13a  Numerical  Results  of  Normalized  Wave  Amplitude; -  Without  Wave  Breaking; 

- With  Wave  Breaking;  . Shoaling  only. 
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Fitjure  3.13b  Numerical  Results  of  Normalized  Wave  Amplitude; -  Without  Wave  Breaking; 

- With  Wave  Breaking;  . Shoaling  only. 
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Figure  3.13c  Numerical  Results  of  Normalized  Wave  Amplitude; -  Without  Wave  Breaking; 

- With  Wave  Breaking;  . Shoaling  only. 
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Figure  3.13d  Numerical  Results  of  Normalized  Wave  Amplitude; -  Without  Wave  Breaking; 

- With  Wave  Breaking;  . Shoaling  only. 


150 


8 


Figure  3.13e  Numerical  Results  of  Normalized  Wave  Amplitude; -  Without  Wave  Breaking; 

-  With  Wave  Breaking;  . Shoaling  only. 
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Figure  3.13f  Numerical  Results  of  Normalized  Wave  Amplitude; -  Without  Wave  Breaking; 

- With  Wave  Breaking;  . Shoaling  only. 


Figure  3.13g  Numerical  Results  of  Normalized  Wave  Amplitude; -  Without  Wave  Breaking; 

- With  Wave  Breaking;  . Shoaling  only. 
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Figure  3.13h  Numerical  Results  of  Normalized  Wave  Amplitude; -  Without  Wave  Breaking; 

- With  Wave  Breaking;  . Shoaling  only. 


Figure  3.13i  Numerical  Results  of  Normalized  Wave  Ampl 
- With  Wave  Breaking;  . Shoaling  only. 


cases  with  available  experimental  measurements  are  investigated.  For  the 
single  breakwater  case,  a  thin  breakwater  with  zero  thickness  is  installed  on 
a  uniform  sloping  beach.  The  breakwater  can  be  perpendicular  to  or  inclined 
to  the  shoreline,  that  is,  8^  equals  CP  or  3CP  in  Figure  3.14,  respectively 
(Hales ,  1980) . 

In  the  case  of  a  perpendicular  breakwater  with  wave  period,  T  -  1.0 
second  and  incident  angle,  ^  -  2CP  ,  present  numerical  results  are  compared 
with  laboratory  rreasurements  (Hales,  1980)  at  two  cross-sections,  x  -  12.5  ft 
and  9  ft  (Figure  3.15).  We  remark  that  the  present  results  are  calculated  for 
both  the  upwave  and  downwave  sides  of  the  breakwater  simultaneously,  which  is 
different  from  the  procedures  used  by  Tsay  and  Liu  (1982).  All  of  the 
numerical  results  are  comparable  to  those  of  laboratory  measurements.  It  is 
also  observed  that  the  computational  domain  of  the  rotated  Cartesian 
coordinate  system  is  limited  and  therefore  part  of  the  wave  amplitude  field 
along  X  -  9  ft  is  not  available.  In  order  to  obtain  better  resolution  of  the 
numerical  results.  Act  -  -  0.25  ft  are  used  even  though  grid  sizes  of  A«7  -> 

Ap  -  0.5  ft  already  satisfy  the  numerical  stability  criterion,  (2.59). 

For  waves  with  a  period,  T  -  1.0  second  and  incident  angle,  9^  =  30°  , 
the  wave  field  around  an  inclined  breakwater,  9^  -  30°,  is  calculated  and 
compared  only  with  available,  experimental  measurements  in  the  downwave  side 
at  four  cross-sections,  x  -  12  ft,  10  ft,  8  ft  and  6  ft.  Comparison  of 
present  numerical  results  with  laboratory  measurements  are  shown  in  Figure 
3.16.  The  grid  size  of  Act  -  Ap  -  0.25  ft  are  used  in  the  numerical 
computations.  The  boundary  condition,  (2.49),  for  rotated  Cm  ic.sian 
coordinate,  have  violated  the  stability  criterion,  (2.59).  Its  results  near 
the  breakwater  are  not  very  accurate.  On  the  upwave  (reflected)  side  of  the 
breakwater,  results  using  the  curvilinear  coordinate  system  seem  to  oscillate 


with  an  inaccurate  frequency.  It  may  be  due  to  the  fact  that  the  ray-phase 
line  system  of  incident  waves  is  quite  different  from  that  of  reflected  waves. 

It  is  common  practice  in  shoreline  protection  to  use  two  breakwaters  to 
maintain  sufficient  depths  for  navigation  purposes.  A  laboratory  set-up  as 
shown  in  Figure  3.17  was  constructed  to  study  the  wave  field  inside  two 
breakwaters  (Isobe  1986).  The  incident  wave  period  is  0.83  seconds  and  the 
incident  angle  in  the  constant  depth  region  is  -18°  .  Grid  sizes,  Ao  -  Ap  - 
0.02m  are  used  in  curvilinear  and  rotated  Cartesian  coordinates.  To  assure 
that  the  change  of  number  of  grid  points  on  either  side  of  breakwater  is 
limited  to  one  at  each  marching  step.  La  -  0.04m  and  Ap  -  0.05m  are  used  in 
fixed  Cartesian  coordinate  systems.  The  wave  amplitude  distribution  of  the 
numerical  results  are  compared  with  experimental  measurements  at  sections  AA 
and  BB  (Figure  3.18).  Due  to  the  large  inclinational  angle  in  the  section 
from  the  tip  of  breakwaters  and  short  wave  period,  the  grid  sizes  are  nuch 
smaller  than  those  used  in  the  other  two  cases.  The  stability  criterion, 

(2.59)  is  not  satisfied  on  the  inclinational  section  of  the  breakwater,  AB 
(see  Figure  3.17)  in  rotated  Cartesian  coordinate  systems,  therefore  its 
numerical  results  in  the  vicinity  of  the  breakwater,  AB  are  not  accurate. 
However,  both  models  of  curvilinear  coordinate  and  fixed  Cartesian  coordinate 
system  provide  with  good  results  within  the  area  between  two  breakwaters. 

Samples  of  input/output  data  files  are  shown  in  Appendix  E. 
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Lire  3.15a  Comparison  of  Normalized  Wave  Amplitude  with  Experimental  Measurement;  o  o  o;  Measurements 

Curvilinear  Coordinates, - :  Rotated  Cartesian  Coordinates;  . :  Fixed  Cartesian 
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Figure  3.16a  Comparison  of  Normalized  Wave  Amplitude  with  Experimental  Measurements:  o  o  o  Measurements 

- :  Curvilinear  Coordinates;  - :  Rotated  Cartesian  Coordinates;  :  Fixed  Cartesian 

Coordinates. 
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Figure  3.16b  Comparison  of  Normalized  Wave  Amplitude  with  Experimental  Measurements:  o  o  o  Measurements, 

- :  Curvilinear  Coordinates; - :  Rotated  Cartesian  Coordinates;  . :  Fixed  Cartesian 

Coordinates. 
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Figure  3.1Cc  Comparison  of  Normalized  Wave  Amplitude  with  Experimental  Measurements:  o  o  o  Measurements 

- :  Curvilinear  Coordinates; - :  Rotated  Cartesian  Coordinates;  .  Fixed  Cartesian 

Coordinates . 
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Figure  3.18b  Comparison  of  Numerical  Results  with  Experimental  Measurement;  o  o  o:  Measurements 

- :  Curvilinear  Coordinates;  - ;  Rotated  Cartesian  Coordinates;  .  Fixed  Cartesian 

Coordinates. 


4.  FLOW  CHART,  PROGRAM  AND  I/O  DESCRIPTIONS 

A  computer  program  has  been  written  using  FORTRAN  computer  language  to 
implement  the  computation  of  wave  fields  in  an  open  coastal  area.  Because  of 
the  similarity  of  the  governing  equations  using  the  three  different  coordinate 
systems,  the  program  leaves  the  choice  of  the  coordinates  system  to  the  user. 
The  logic  procedures  involved  in  the  computation  are  illustrated  by  the  flow 
chart.  Figure  4.1.  The  program  has  been  written  with  a  lot  of 
self-explanatory  comments  for  reference.  Several  possibilities  in  a 
particular  step  are  also  integrated  to  increase  program  flexibility,  e.g. 
selection  of  bathymetric  data  interpolation  methods  etc.  A  brief  discussion 
of  the  program  will  be  given  in  this  section.  Detailed  discussion  of  input 
and  output  data  files  of  the  program  will  follow. 

4.1  Description  of  Input/Output  Data  (Files) 

This  program  requires  two  to  five  input  data  files,  depending  on  the 
mode  of  input  and  the  problem  being  investigated.  These  are  "IN. DAT", 
"LOC.DAT",  "DEPTH.DAT",  and/or  "CURRNX.DAT”,  "CURRNY.DAT".  The  file  "IN. DAT" 
is  needed  in  batch  and  semi -interactive  mode  only  while  files  of  "CURRNX.DAT" 
and  "CURRNY.DAT"  are  only  required  when  a  current  field  is  presented  in  the 
problem.  The  program  can  operate  in  one  of  the.se  options,  namely, 
semi-interactive,  and  interactive  mode.  If  the  interactive  mode  is  selected 
to  run  the  program  the  first  time,  the  input  data  will  be  stored  automatically 
in  the  file  "IN. DAT"  for  future  runs.  Output  from  the  program  consists  of 
from  1  to  10  separate  files,  with  each  separate  file  containing  the  results  of 
one  particular  output  profile.  The  file  for  profile  1  is  called  "OUT01.DAT", 
that  for  profile  2  is  "OUT02.DAT",  and  that  for  profile  10  is  "OUT10.DAT" 
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Input : 

Wave  Parameters  and 
Numerical  Computational 
Parameters 


This  section  contains  the  following  files: 

a)  Input  Files 

i)  IN. DAT  (batch  and  semi- interactive  modes  only) 

ii)  LOG. DAT 

iii)  DEPTH.DAT 

iv)  CURRNX.DAT,  CURRNY.DAT  (presence  of  current  only) 

b)  Output  Files 

OUT01.DAT  through  OUT10.DAT 

a)  Input  Files 

i)  IN. DAT 

This  file  is  not  needed  only  when  the  user  chooses  the  interactive 
mode  (i.e.  IBATCH  -  0).  This  file  is  arranged  in  the  following  sequence  of 
variables  (free  format):  (Definitions  of  the  variable  names  are  discussed  in 

section  A . 2) . 

lOPTCO 

lOPTBU,  lOPTBD 

AO,  T.  ALPHAD,  G,  TIDE 

MXGRID,  NYGRID 

XO,  YO,  DSIG,  DRHO,  N,  M,  SI.  S2,  DC,  DBASE 
IP 

IBACKD 

IREALD 

IDEPM,  IPLINE 

IFRCT,  XDAMP,  FRCT 

IBREAK 

ICURRN 

IBKWTR 

IBKWPT(l)  (XBW(1,  L) ,  YBW  (1,  L),  L  -  1.  IBKWPT(l)) 

IBKWPT(2)  (XBW(2,  L) ,  YBW  (2 ,  L) ,  L  -  1 ,  IBKWPT(2)) 


( IBKWTR -TH  BREAKWATER) 
TITLE  (80  CHARACTERS  MAX.) 

NUMSEC 
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XI,  Yl,  X2,  Y2  (ist  section) 
XI,  Yl,  X2,  Y2  (2"‘i  section) 


(NUMSEC-th  section) 

The  program  expects  to  read  "NUMSEC"  sets  of  two  endpoints  each.  If 
IBKWTR  is  0,  the  information  on  the  breakwater  can  be  skipped. 

ii)  File  LOG. DAT 

This  file  defines  the  locations  of  the  "rows"  and  "columns"  of  the 
input  depth  grids.  The  "rows"  are  lines  of  constant  x  values  and  the 
"columns"  are  lines  of  constant  y  values.  This  file  has  two  parts;  first  a 
listing  of  the  x  values  of  the  rows  (there  should  be  MXGRID  rows),  and 
secondly  a  listing  of  the  y  values  of  the  NYGRID  columns.  There  are  two 
possible  forms  for  each  of  these  parts,  let's  call  them  the  sequential 
organization  (usually  for  irregular  grids)  and  the  compact  organization 
(always  for  a  regular  grid).  Shown  below  is  the  file  LOG. DAT  for  the 
topography  at  the  GERG  field  station  followed  by  a  description  of  each  input: 

1 

0.0  650.0  50.0 

1 

-500.0  500.0  50.0 

This  file  in  interpreted  as  follows: 

---On  the  first  line  this  Integer  Input  is  the  variable  "IFORMX". 
IFORMX-1  indicates  that  the  x- locations  which  follow  will  have  the  "compact" 
organization.  IFORMX  -  0  would  indicate  that  the  sequential  organization  will 
be  used. 
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- On  the  second  line,  it  indicates  that  the  x- values  will  vary  from  x  - 


0  to  X  -  650  with  a  step  size  of  50. 

- On  the  third  line,  the  integer  input  is  the  variable  "IFORMY" , 

which  is  the  same  as  "IFORMX"  except  that  it  refers  to  the  organization  of  the 
y- values  which  are  to  follow. 

— On  the  fourth  line,  it  indicates  that  the  y-values  will  range  from  y  - 
-500.  to  Y  -  500.  with  a  step  size  of  50. 

When  an  irregularly  spaced  grid  is  desired  the  sequential  organization 
must  be  used.  The  following  file  is  for  the  test  discussed  in  section  3.2  for 
an  elliptical  shoal.  The  rest  of  the  topography  consists  of  a  plane  beach  and 
therefore  one  would  expect  that  the  node  spacing  over  the  shoal  should  be  more 
dense  than  that  used  over  the  plane  beach. 


0 


0. 

1. 

5. 

10. 

13. 

13.67 

14.17 

14.67 

15.17 

15.67 

16.17 

16.67 

17.17 

17.67 

18.17 

18.67 

19.17 

19.67 

22.5 

25. 

30. 

0 

-15 

-10 

-4 

-3.5 

-3 

-2.5 

-2 

-1.5 

-1 

-0.5 

0 

0.5 

1 

1.5 

2 

2.5 

3 

3.5 

4 

10 

15 

This  file  is  interpreted  as  follows: 

0 

— This  is  IFORMX.  Since  it  equals  0  the  x- locations  will  follow  in 
sequential  order. 


0. 

1.  5. 

10. 

13. 

13.67 

14.17 

14.67 

15.17 

15.67  16.17 

16.67 

17.17 

17.67 

18.17 

18.67 

19.17 

19.67  22.5 

25. 

30. 

— These 

!  are  the  MXGRID  separate 

values  of 

the  X 

-locations . 

0 

---This 

is  "IFORMY". 

IFORMY  -  0 

indicates 

that 

the  y-values 

which  follow 
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will  have  a  sequential  organization. 


-15  -10  -4  -3.5  -3  -2.5  -2  -1.5 

-1  -0.5  0  0.5  1  1.5  2  2.5 

3  3.5  4  10  15 

— These  are  the  NYGRID  separate  values  of  the  y- locations. 


Note:  IFORMX  and  IFORMY  do  not  have  to  have  the  same  value. 


ill)  File  DEPTH.DAT 

This  file  contains  the  depths  at  the  nodes  which  are  located  by 
the  values  read  from  file  "LOC.DAT".  There  are  three  ways  to  input  depth 
data,  which  are  distinguished  by  "IFLIP".  When  IFLIP  -  0,  DEPTH. DATA  is 
prepared  along  a  row  (constant  x)  in  a  sequence  from  left  to  right  (facing 
land).  The  order  of  row  is  from  minimal  x  to  maximal  x.  When  IFLIP  -  1, 
"DEPTH.DAT"  is  prepared  along  a  row  (constant  x)  in  a  sequence  from  right  to 
left.  The  order  of  rows  is  the  same  as  that  of  IFLIP  -  0.  When  IFLIP  -  2, 
DEPTH.DAT  is  prepared  along  a  column  (constant  y)  from  land  to  sea.  The  order 
of  column  is  from  left  (min.  y)  to  right  (max.  y) .  A  snail  part  of  two 
separate  depth  input  files  are  shown  below. 


1 


-0.3 

.2 

.6 

.3 

-.1 

-  .4 

-.5 

-  .4 

-.2 

.2 

0.6 

.8 

1.0 

1.2 

1.0 

.9 

1.0 

.9 

.6 

.4 

0.2 

0.0 

-  .1 

-.3 

-  .9 

-1.0 

-0.8 

-0.2 

.4 

-0.2 

-0.4 

-0.3 

.1 

.7 

.7 

1.2 

2.0 

1.2 

.8 

.9 

1.4 

2.5 

3.9 

2.4 

1.3 

.7 

.5 

.4 

.3 

0.0 

.5 

.8 

.9 

.9 

.7 

.6 

.5 

.6 

.8 

1.0 

1.0 

1.5 

1.7 

1.6 

1.9 

1.9 

1.6 

1.6 

1.3 

.9 

1.0 

.9 

.4 

.2 

.3 

.1 

.2 

.4 

.9 

.8 

.9 

1.1 

1.5 

1.9 

2.1 

2.3 

2.6 

2.3 

2.1 

2.3 

11.4 

11.4 

11.5 

11.7 

11.6 

11.7 

11.7 

11.6 

11.8 

11.8 

11.7 

11.8 

11.8 

11.8 

11.7 

11.6 

11.6 

11.6 

11.6 

11.7 

11.8 

11.9 

12.0 

12.0 

12.1 

12.1 

12.2 

12.2 

12.3 

12.3 
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The  user  should  note  that  on  the  first  line  a  single  integer  value  is 
read.  This  integer  is  the  value  of  "IFLIP"  (see  subroutine  MAKEC)  vhich  will 
always  have  a  value  of  either  0,  1  or  2.  In  order  to  understand  the  meaning 
of  "IFLIP"  consider  the  following  situation:  you  are  on  a  straight  beach 

facing  land  directly  from  sea  (say  that  you  are  facing  north)  ,  if  IFLIP  -  0 
the  depths  in  each  row  will  be  read  starting  at  your  left  and  will  proceed  to 
your  right  (the  depths  will  be  read  from  west  to  east).  On  the  otherhand,  if 
IFLIP  -  1  then  each  row  will  be  "flipped"  and  the  depths  will  be  read  from 
right  to  left  (east  to  west) . 

Following  is  part  of  the  depth  input  file  for  the  elliptical  shoal  test, 
which  since  it  is  totally  symmetrical  could  use  IFLIP  -  0  or  1. 


0 


0. 

0.  ... 

0.  0. 

0. 

0. 

0. 

0.  ... 

0.  0. 

0. 

.02 

.02  ... 

.02  .02 

.02 

.02 

.02 

.02  ... 

.02  .02 

.02 

0.45 

0.45 

.45  .45 

.45 

Note: 

negative  depths  are  s 

imply  elevations 

above  sea  level 

iv) 

Files  CURRNX.DAT  and 

CURRNY.DAT 

Uhen  a  current  field  is  to  be  considered  in  the  problem,  the 
structures  of  files  of  CURRNX.DAT  and  CURRNY.DAT  must  be  exactly  the  same  as 
that  of  the  file  DEPTH.DAT  except  the  flag  of  I 'LIP  is  not  needed.  That  means 
the  depth  and  current  components  are  input  at  the  same  locations.  In  the  case 
of  no  current,  these  two  files  are  not  required. 
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b)  Output  files 

OUT01.DAT  ...  OUT06.DAT  ...  OUT10.DAT 

These  files  each  correspond  to  an  individually  defined  output  profile  and 
contain  data  on  the  intersection  of  that  profile  with  the  computational  line 
at  each  marched  step  of  the  calculation. 
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4.2  DESCRIPTION  OF  SUBROUliNL  AND  DEFINITION  OF  VARIABLES 


THESE  SUBROUTINES  HAVE  BEEN  GROUPED  UNDER  ONE  OF  THREE 
MAIN  HEADINGS,  THESE  ARE: 

a)  FLOW  OF  CONTROL  AND  MISCELLANEOUS  AUXILLIARYS 

b)  DEPTH  AND/OR  CURRENT  INTERPOLATION 

c)  GENERAL  EQUATION  SOLVERS 
C 

C 

a)  MAIN  PR0G:^\M  /  FLOW  OF  CONTROL  +  VARIOUS  AUXILLIARY  ROUTINES 


C  THE  PRESENT  CAPACITY  OF  THE  PROGRAM  IS  LIMITED  TO  500  NODES  ON  A 
C  COMPUTATION  LINE.  CERTAIN  RELATIONSHIPS  BETWEEN  N  AND  M  MUST  BE 
C  MAINTAINED 

C  1)  N+M  .LE.  2000;  2)  N  .LE.  500 

C  IF  IT  IS  DESIRED  TO  EXPAND  THE  DIMENSION  OF  THE  ARRAYS  THEN  THESE 
C  RELATIONSHIPS  MUST  ALSO  BE  MODIFIED.  FOR  EXAMPLE  IF  THE  ARRAYS  ARE 
C  DIMENSIONED  TO  600  THEN  EITHER  M.LE.1400  OR  THE  LARGE  ARRAYS  MUST 
C  ALSO  BE  EXPANDED.  ALSO,  WHEN  USING  CURVILINEAR  COORDINATES  DELTA 
C  SIGMA  (STEP  IN  DIRECTION  OF  PROPAGATION)  MUST  BE  AN  INTEGER  MULTIPLE 
C  OF  DELTA  RHO  (STEP  ALONG  TRANSVERSE  DIRECTION)  ie :  DSIG=15  AND 
C  DRHO=10  IS  NOT  ALLOWABLE. 

C  THE  MAJORITY  OF  COMUNICATION  OF  DATA  BETWEEN  THE  MAIN  PROGRAM  AND 
C  THE  SUBROUTINES  IS  ACCOMPLISHED  THROUGH  THE  USE  OF  SEVERAL  LABELED 
C  COMMON  STATEMENTS.  THESE  WILL  BE  REFERRED  TO  AS  A  GROUP  AS  THE 
C  "COMMON  BLOCK". 

C  THE  FUNCTION  OF  THE  MAIN  PROGRAM  IS  TO  CONTROL  THE  READING 
C  OF  INPUT  FROM  THE  INPUT  FILES  AND  THE  KEYBOARD. 

C 

C  COMMON /AB/ N , MM , BETA , OMEGA , G , DS IG , DRHO , WKO 

C  COMMON/ AC/ NN , M , XO , YO , T , XUB , XLB , YLB , YRB , ALPHA , lOPTCO 

C  COMMON/ AD/ S 1 , S2 , lOPTBU , lOPTBD, IBATCH 

C  COMMON/AE/IP,IFRCT,XDAMP,AO,FRCT 

C  COMMON/ AF/NTRUC , IDEPM, IPLINE , DC, DBASE , MX, NY , TIDE 

C  COMMON/AG/XI,YI,DEP,U,V 

C  COMMON/AH/NUMSE'  , IUNIT,Xi 1 ,Y1 1 ,X21 ,Y21 , TITLE 

C  COMMON/AI/IBKWTR,IBKWPT,XBW,YBW 

C  COMMON/DI/ IBACKD,IREALD,IBREAK,ICURRN 

C  DIMENSION  IUNIT(10),X11(I0),Y11(10>,X21(10),Y21(10) 

C  DIMENSION  IBKWPT(5),XBW(5,10),YBW(3,i0) 

c  character*80  title 

C 

C  THE  UNIT  DESIGNATIONS  ARE  AS  FOLLOWS: 

C  5  -  KEYBOARD 

C  6  “  SCREEN 

C  9  »  INPUT  FILE  CONTAINING  THE  DEPTHS 

C  10  =  INPUT  FILE  CONTAINING  GRID  COORD. 

C  11  »  INPUT  FILE  CONTAINING  X-COMP.  OF  CURRENT 

C  12  -  INPUT  FILE  CONTAINING  Y-COMP.  OF  CURRENT 

C  FILES  OF  UNITS  11  AND  12  ARE  NEEDED  WHEN  ICURRN  «  1 
C  13  -  INPUT  FILE  (MISCELLANEOUS  INFO) 

C  21-30  =  OUTPUT  FILES  CONTAINING  LOCATIONS,  AMPLITUDE,  AND  PHASE 

C  DATA  FOR  EACH  PROFILE. 

C 
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C 

C  DEFINITION  OF  VARIABLE  NAMES: 

C 

C  IBATCH*  0:  INTERACTIVE;  ALL  DATA  INPUT  FROM  KEYBOARD  EXCEPT  DEPTH.DAT, 

C  LOC.DAT,  AND/OR  CURRNX.DAT  AND  CURRNY.DAT.  YOU  CAN  ALSO  ADJUST 

C  PARAMETERS 

C  1:  SEMI-INTERACTIVE;  NO  DATA  INPUT  FROM  KEYBOARD,  BUT  AT 

C  SEVERAL  BREAKPOINTS  PROGRAM  ALLOWS  YOU  TO  ADJUST  PARAMETERS 

C  2:  BATCH  MODE;  AFTER  RESPOND  TO  SYSTEM'S  REQUEST  OF  IBATCH 

C  YOU  CAN  NOT  ALTER  ANY  PARAMETERS 

C  lOPTCO*  0:  CURVILINEAR  COORDINATES 

C  1:  CARTESIAN  COORDINATES  (ROTATED  IN  PROPAGATION  DIRECTION) 

C  2:  CARTESIAN  COORDINATES  (FIXED) 

C  IOPTBU,IOPTBD=  UPWAVE  AND  DOWNWAVE  LATERAL  BOUNDARY  CONDITION 
C  0:  OPEN  BOUNDARY  CONDITIONS 

C  1:  SOLID  BOUNDARY  CONDITIONS 

C  A0=  INITIAL  WAVE  AMPLITUDE  (UNIT  MUST  BE  CONSISTENT  WITH  G) 

C  T*  THIS  IS  THE  WAVE  PERIOD  (UNIT  MUST  BE  CONSISTENT  WITH  G) 

C  ALPHAD  (IN  DEGREE)*  INITIAL  ANGLE  OF  INCIDENCE  (CONVERTED  INTERNALLY 
C  TO  RADIANS).  NOTE:  STANDING  ON  SHORE  AND  FACING  SEAWARD,  ALPHA 

C  IS  NEGATIVE  FOR  ANGLE  IS  COUNTER-CLOCKWISE  FROM  12  O'CLOCK 

C  POSITION  AND  POSITIVE  FOR  CLOCKWISE 

C  TIDE=TIDE  LEVEL  REFERRED  TO  MEAN  SEA  WATER  LEVEL 
C  G*  ACCELERATION  DUE  TO  GRAVITY 

C  MXGRID*  NUMBER  OF  ROWS  (X=CONSTANT)  OF  DEPTH  DATA  WHICH  ARE  TO  BE  INPUT 

C  NYGRID-  NUMBER  OF  COLUMNS  (Y=CONSTANT)  OF  DEPTH  DATA  WHICH  ARE  TO  BE 

C  INPUT 

C  X0,Y0=*  REFERENCE  POINT  OF  REFERENCE  LINE  (CHOOSE  POINT  AT  THE  UPWAVE 
C  SIDE  OF  INTERESTED  AREA) 

C  DSIG-  DELTA  SIGMA  -  GRID  SIZE  IN  THE  DIRECTION  OF  MARCHING 

C  DRHO*  DELTA  RHO  -  GRID  SIZE  PARALLEL  TO  TRANSVERSE  LINE 

C  N-  THE  NUMBER  OF  NODES  ALONG  THE  TRANSVERSE  LINE.  (NOTE:  N  HAS 
C  INTERMEDIATE  VALUES  BEFORE  THE  ABOVE  DESCRIPTION  IS  CORRECT) 

C  M-  MAX.  NUMBER  OF  MARCHING  STEPS  IN  PROPAGATION 

C  S1,S2*  BOTTOM  SLOPE  AT  FIRST  ROW  OF  INPUT  DEPTHS  (NEAR  SHORE)  AND  LAST 
C  ROW  (DEEP  WATER)-USED  ONLY  FOR  CUBIC  SPLINE  OF  BACKGROUND  DEPTH 

C  DC-  DEPTH  AT  CONSTANT  DEPTH  REGION  (DEEP  WATER) 

C  DBASE-  DEPTH  AT  BASELINE 

C  U,V-  X,Y-COMPONENT  OF  CURRENT 

C  IP-NUMBER  OF  MARCHED  STEPS  TO  SKIP  BETWEEN  INTERPOLATIONS 

C  IFRCT,XDAMP«FLAG  FOR  BOTTOM  FRICTION  AND  LOCATION  AT  WHICH  BOTTOM 

C  FRICTION  EFFECTS  START  TO  BE  CALCULATED 

C  FRCT-  BOTTOM  FRICTION  FACTOR 

C  TITLE  -  TITLE  OF  THE  OUTPUT  FILE  (LESS  THAN  80  CHARACTERS) 

C  NTRUC-  NUMBER  OF  NODES  ON  TRUNCATED  PHASE  LINE 

C  IDEPM,IPLINE-  PRINTING  FLAGS  (1:  PRINT  ON  SCREEN;  0:N0  PRINT-OUT) 

C  IBACKD  (BACKGROUND  DEPTH  SCHEME) 

C  -0  -.PLANE  BEACH  WITH  SLOPE  -0.01  (USED  FOR  DEBUGGING) 

C  -1  :CUBIC  SPLINE  OVER  AVG.  DEPTH  AT  EACH  ROW' 

C  -2  .-LEAST  SQUARE  CUBIC  EQN.  IN  X-DIRECTION. 

C  IREALD  (ACTUAL  DEPTH) 

C  -0  : PLANE  BEACH  WITH  SLOPE-0.01  (USED  FOR  DEBUGGING) 

C  -1  : LINEAR  AVG.  OF  4  SURROUNDING  GRID  POINTS 

C  -2  :USES  A  16  POINT  GRID  FOR  A  CUBIC  SPLINE  ACROSS  EACH  OF  FOUR 

C  ROWS  AND  THEN  ONCE  DOWN  THE  INTERPOLATED  ALONG  THE  DESIRED 

C  Y-VALUE 

C  -3  :LIKE  IREALD-2  EXCEPT  THE  SPLINE  IS  DONE  ON  THE  COLUMNS  AND 

C  THEN  THE  ROW  OF  THE  DESIRED  X-VALUE 

C  -4  : LEAST  SQUARE  FIT  OF  16-POINT  GRIDS  TO  A  6  COEFF.  DEPTH 
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C  EXPRESSION 

C  BETA*  K*SIN( ALPHA) 

C  OMEGA*  ANGULAR  FREQUENCY  OF  INCIDENT  WAVE. 

C  IBKWTR=FLAG  OF  PRESENCE  OF  BREAKWATER 

C  0  :  NO  BREAKWATER  AT  ALL 

C  :  NO.  OF  BREAKWATERS  WILL  BE  ENCOUNTERED  DURING  COMPUTATION 

C  (LIMITED  TO  5) 

C  IBKWPT(I)*  NO.  OF  POINTS  TO  DESCRIBE  LINEAR  SEGMENTS  OF  I-TH 
'C  BREAKWATER  (2  TO  10,  IF  ANY) 

C  XBW(I,J) ,YBW(I,J)=COORLINATES  OF  J-TH  POINT  ON  I-TH  BREAKWATER 
C  ICURRN=FLAG  OF  CURRENT  FIELD 

C  1  :  EFFECTS  OF  CURRENT  FIELD  ON  WAVE  CONSIDERED 

C  0  :  NO  CURRENT  EFFECTS 

C  C(4,MX)=  ARP7.Y  OF  COEFFICIENTS  USED  IN  A  CUBIC  SPLINE  INTERPOLATION. 
C  Ex.  F(x)=  C(l,I)+C(2,I)x+C(3,I)x*x+C(4,I)x*x*x. 

C  IBREAK  =  0  FOR  NO  WAVE  BREAKING;  =  1  FOR  BREAKING 

C  NUMSEC  =  NO.  OF  SECTIONS  ALONG  WHICH  WAVE  FIELD  WILL  BE  SHOWN  IN  THE 

C  OUTPUT  FILE  (<  OR*  10)  UNDER  FILENAMES  AS  OUT01.DAT; 

C  0UT02.DAT;,...;OUT10.DAT 

C  lUNIT  =  UNITS  FOR  OUTPUT  FILES 
C  Xll.Yll  =  STARTING  POINT  OF  SECTIONS 
C  X21,Y21  =  ENDING  POINT  OF  SECTIONS 

C  NN=MAX  POSSIBLE  NUMBER  OF  NODES  TO  LANDWARD 

C  SUBROUTINE  MAKEPL 

C 

C  THIS  SUBROUTINE  (MAKE  computational  PLane)  ALLOWS  FOR  THE  SELECTION 
C  OF  THE  DESIRED  DEPTH  INTERPOLATION  SCHEME.  THIS  SUBROUTINE  FORMS  THE 
C  DIFFERENCE  EQUATIONS  TO  BE  SOLVED,  CALLS  THE  SOLVING  SUBROUTINES,  AND 
C  CALLS  THE  OUTPUT  ROUTINES  AT  DESIRED  MARCHING  STEP. 

C 

C  SOME  INTERNAL  VARIABLES: 

C  N  =  'THE  NUMBER  OF  REFERENCE  POINTS  IN  SEAWARD  DIRECTION' 

*  THE  MAXIMUM  NUMBER  OF  NODES  ADDED  ON  THE  SEAWARD  SIDE  OF  THE 
REFERENCE  POINT  ALONG  THE  TRANSVERSE  LINE. 

XLB  *  FARTHEST  EXTENT  OF  NEAR  FIELD  IN  X-DIRECTION  (I.E.  MAX.  X) 

IDIRC*  FLAG  FOR  DIRECTION  OF  INCIDENT  WAVES;  IDIRC*1  FOR  POSITIVE 
C  INCIDENT  ANGLE;  IDIRC=-1  FOR  NEGATIVE  INCIDENT  ANGLE. 

C  RECALL:  M  IS  THE  MAX.  NUMBER  OF  NODES  IN  LANDWARD  DIRECTION 
C  FO,FN  -  OLD  AND  NEW  ARRAY  OF  DIFFRACTION  FACTOR 
C  A1,A2,A3  -  ARRARY  OF  A  IN  MATRIX  EQUATION  A*X*B 
C  B  -  tORCING  TERM  IN  MATRIX  EQUATION  A*X*B 
C  AMPRD  -  PRODUCT  OF  AMPLT  *  DIFFRACTION  FACTOR 
C  AMPLT  -  LOCAL  AMPLT  DUE  TO  REFRACTION  AND  SHOALING  ONLY 

C  PHASE  -  LOCAL  PHASE  DUE  TO  REFRACTION  AND  SHOALING  ONLY 

C  PHASEL  -  PHASE  OF  POINTS  ALONG  REFERRENCE  LINE 
C  XX,YY  -  X-  AND  Y-  COORDINATES  ALONG  REFERENCE  LINE 
C  ARO,ARN  -  OLD  AND  NEW  CALCULATED  AMPLITUDE 

C  ASO,ASN  -  OLD  AND  NEW  CALCULATED  PHASE 

C  XG,YG  -  INTERMIDIATE  COORDINATES  OF  POINTS  IN  MARCHING 
C  XOLD,YOLD,XNEW,YNEW  *  OLD  AND  NEW  COORDINATES  IN  EACH  MARCHING  STEP 
C  XI,YI  -  ARRARY  IN  X-  AND  Y-  DIRECTIONS  AT  THE  GRIDS  WHERE  REAL  DEPTH 
C  AND/OR  CURRENT  DATA  WILL  BE  INPUT 

C  DEP  -  DEPTH  AT  INTERSECTIONS  OF  XI  AND  YI 
C  U,V  -  X,Y-COMPONENT  OF  CURRENT 

C  TITLE  -  TITLE  TO  IDENTIFY  OUTPUT  FILE  OF  THE  RESULTS 
C  NUW(I)  -  NUMBER  OF  POINTS  ON  THE  UPWAVE  SIDE  AT  PRESENT  COMPUTING 
C  AT  I-TH  BREAKWATER 
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C  NUWl(l)  -  NUMBER  OF  POINTS  ON  THE  UPWAVE  SIDE  AT  PREVIOUS  COMPUTING 
C  AT  I-TII  BREAKWATER 

C  IDM  =  0  : BREAKWATER  HAS  NOT  BEEN  ENCOUNTERED 

C  IF  GREATER  THAN  0  :  (IDM)  BREAKWATERS  HAVE  BEEN  ENCOUNTERED 

C  IBK(I)  =  FLAG  FOR  I-TH  BRKWTR,  i;  ENCOUNTERED;  0;  NOT  YET 
C  IDN  =  FLAG  OF  ENCOUNTERING  OF  BREAKWATER  BETWEEN  ANY  TWO  POINTS 
C  ON  A  COMPUTATIONAL  LINE 

C  =  0  NO  PRESENCE  OF  BREAKWATER 

C  *  1  A  BREAKWATER  IS  ENCOUNTERED 

C  WKT  IS  ACTUAL  WAVENUMBER,  THEREFORE  BELOW  IS  -VO. 

C  VI  =  TERMS  OF  EFFECTS  OF  CURRENT  ON  WAVES 
C  V2  =  TERM  OF  ENERGY  DISSIPATION  DUE  TO  BREAKING 

C  V3  =  TERM  OF  ENERGY  DISSIPATION  DUE  TO  BOTTOM  FRICTION 

C  US  =  TERM  OF  CURRENT  EFFECTS  ON  WAVE  NO.  IN  MARCHING  DIRECTION 

C  UN  =  TERM  OF  CURRENT  EFFECTS  ON  WAVE  NO.  IN  TRANSVERSE  DIRECTION 

C  DIVU  »  DIVERGENCE  OF  CURRENT  VELOCITY 
C  WK2U+WK2V  =INNER  PRODUCT  OF  WK  HAT  AND  CURRENT 
C 

C  COMPLEX  FO(500),FN(500),C1,C3,C4,A1(500),A2(500),DTHE 

C  COMPLEX  AMPRD(500),A3(500),b(500),CB,VV,Vl,V2,V3 

C  COMPLEX  C5(5),C6(5),C7(5),C8(5),C9(5),C10(5),C11(5),C12(5) 

C  COMPLEX  C50(5),C60(5),C70(5),C80(5),C90(5),C100(5),C110(5),C120(5) 

C  COMPLEX  CD1,CD2,CD3,CD4 

C  COMMON/ AB/ N , MM , BETA , OMEGA , G , DSIG , DRHO , WKO 

C  COMMON / AC/ NN , M , XO , YO , T , XUB , XLB , YLB , YRB , ALPHA , lOPTCO 

C  COMMON/ AD/ S 1 , S  2 , lOPTBU , lOPTBD , IBATCH 

C  COMMON/AE/IP,IFRCT,XDAMP,AO,FRCT 

C  COMMON/ AF/ NTRUC , I DE  PM , I PLINE , DC , DB AS E , MX , NY , TI DE 

C  COMMON/ AG/XI,YI,DEP,U,V 

C  COMMON/ AH/ NUMSEC , I UN IT , X 1 1 , Y 1 1 , X2 1 , Y2 1 , T ITLE 

C  COMMON /AI/IBKWTR,IBKWPT,XBW,YBW 

C  COMMON/DI/ IBACKD , IREALD , IBREAK, ICURRN 

C  COMMON/CC/  C 

C  riMENSION  ARO(500),ARN(500),ASN(500),ASO(500),IBROKN(500) 

C  DIMENSION  XX( 2000), XG( 500), YY(2000),YG(500),PHASEL(2000) 

C  DIMENSION  CG( 2000 ),WKN( 2000 ),DEPM( 2000 ),THETA( 2000 ),AMPM( 2000) 

C  DIMENSION  XOLD(500),YOLD(500),XNEW(500),YNEW(500) 

C  DIMENSION  AMPLT(500),PHASE(500),WKFS(500),DNODE(500) 

C  DIMENSION  C(4,134),XI(134),YI{133),DEP(134,133),U(134,133) 

C  DIMENSION  IUNIT(10),X11(10),Y11(10),X21(10),Y21(10),V(134,133) 

C  DIMENSION  AM2(500),AM1(500),PGC1(500),PGCO(500),PGC(2000) 

C  DIMENSION  IBKWPT(5),XBW(5,10),YBW(5,10),NUW(5),NUW1(5),IBK(5) 

C  CHARACTER*8C  TITLE 

C  CHARACTER*9  OUTFIL(IO) 

C  DATA  OUTFIL/'OUTOl. DAT', 'OUT02.DAT', 'OUT03.DAT', 'OUT04.DAT', 

C  &  'OUT05 . DAT' , 'OUT06 . DAT' , 'OUT07 . DAT' , 'OUT08 . DAT' , 'OUT09 . DAT' , 

C  &  'OUTIO.DAT'/ 

C  SUBROUTINE  REVIEW 

C 

C  THIS  SUBROUTINE  ALLOWS  THE  USER  TO  INTERACTIVELY  CHECK  AND  CHANGE 
C  THE  VALUES  OF  PARAMETERS  DEFINED  ELSEWHERE,  GENERALLY  AS  INPUT. 

C 

C  COMMON/ AB/ N , MM , BETA , OMEGA , G , DS IG , DRHO , WKO 

C  COMMON/ AC/ NN , M , XO , YO , T , XUB , XLB , YLB , YRB , ALPHA , lOPTCO 

C  COMMON/AD/Sl , S2 , lOPTBU, lOPTBD, IBATCH 

C  COMMON/ AE/IP,IFRCT,XDAMP, AO, FRCT 

C  COMMON/AF/NTRUC,IDEPM,IPLINE,DC,DBASE,MX,NY,TIDE 
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C  COMMON/AG/XI,YI,DEP,U,V 

C  COMMON/AI/IBKWTR,IBKWPT,XBW,YBW 

C  COMMON/DI/ IBACKD , IREALD , IBREAK, ICURRN 

C  DIMENSION  IBKWPT(5),XBW(5,10),YBW(5,10) 

C 

C  SUBROUTINE  CHECK(X) 

C 

C  SUBROUTINE  TO  ALLOW  THE  USER  TO  INTERACTIVELY  CHANGE  THE  VALUE 
C  OF  A  REAL  PARAMETER  (TRIBUTARY  TO  ROUTINE  REVIEW). 

C 

C 

C  SUBROUTINE  ICHECK(J) 

C 

C  SUBROUTINE  TO  ALLOW  THE  USER  TO  INTERACTIVELY  CHANGE  THE  VALUE 
C  OF  AN  INTEGER  PARAMETER  (TRIBUTARY  TO  ROUTINE  REVIEW). 

C 
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C 

C  SUBROUTINE  SIUEVW(NUM,Xi ,Y1 ,X2,Y2, IFIXIT) 

C 

C  SKETCH  THE  BOTTOM  TOPOGRAPHY  BENEATH  SOME  PROFILE  OF  INTEREST 
C 

C  SUBROUTINE  SIDEVW(NUM,X1 ,Y1 ,X2 ,Y2) 

C 

C  INPUT:  NUM,X1,Y1,X2,Y2;  RETURNED:  IFIXIT 
C 

C  DEFINITION  OF  VARIABLES: 

C  NUM»  NUMBER  OF  PROFILES  SPECIFIED  FOR  OUTPUT. 

C  Xl,Yi,X2,Y2»  ARRAYS  WHICH  STORE  THE  LOCATIONS  OF  THE  END 

C  POINTS  OF  THE  PROFILES  TO  BE  USED  AS  OUTPUT  PROFILES. 

C  IFIXIT-  A  FLAG  VARIABLE  TO  CHANGE  THE  SPECIFICATION  OF 

C  ONE  OR  MORE  OUTPUT  PROFILES. 

C  -0:  NO  CHANGE. 

C  =1:  CHANGE  SPECIFICATION  OF  SOME  PROFILES. 

C 

C  COMMON/ AF/NTRUC , IDEPM, IPLINE ,DC, DBASE ,MX, NY ,TIDE 

C  COMMON/AG/XI,YI,DEP,U,V 

C  DIMENSION  X1(10),Y1(10),X2(10),Y2(10) 

C  DIMENSION  XI(134),YI(133),DEP(134,133),U(134,133),V(134,133) 

C 

C  SUBROUTINE  CURVIL(BETA,WK,THE,DG,DX,DY, lOPTCO) 

C 

C  THIS  SUBROUTINE  TRANSFORMS  A  KNOWN  STEP  IN  CURVILINEAR  COORDINATES 
C  INTO  A  CORRESPONDING  STEP  IN  PHYSICAL  COORDINATES,  IT  ONLY  DETERMINES 
C  LOCAL  INCIDENT  ANGLE  IN  ALL  CARTESIAN  COORDINATES  OPTIONS. 

C 

C  INPUT:  BETA,ALPHA,WK,DG;  RETURNED:  THE.DX.DY 
C 

C  DEFINITION  OF  VARIABLES: 

C  BETA  -  K  SIN( ALPHA)  (SEE  EQN  16  IN  JGR  ARTICLE) 

C  ALPHA  -  DEEP  WATER  INCIDENT  ANGLE 

C  WK-  WAVE  NUMBER  (BACKGROUND  WAVE  FIELD) 

C  DG-  CURVILINEAR  STEP  SIZE  ALONG  WAVE  CREST 

C  THE-  THE  ANGLE  OF  INCIDENCE  AT  THE  NEW  LOCATION 

C  DX-  STEP  SIZE  IN  X-DIRECTION 
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C  DY-  STEP  SIZE  IN  Y-DIRECTION 

C 

c 

C  SUBROUTINE  WAVENO(D,WK,GC,PGC,IDEPTH) 

C 

C  SOLVES  THE  DISPERSION  RELATION  BY  NEWTON-RAPHSON  METHOD. 

C 

C  INPUT:  OMEGA, G,D;  RETURNED:  WK.GC.PGC, IDEPTH 
C 

C  DEFINITION  OF  VARIALBES: 

C  OMEGA*  WAVE  FREQUENCY 

C  G-  GRAVITY 

C  D-  DEPTH 

C  WK-  WAVE  NUMBER 

C  GC»  GROUP  VELOCITY 

C  PGC*PC*GC  (PC*  PHASE  VELOCITY) 

C  IDEPTH*  -1:  SHALLOW  WATER;  -  1:  INTERMEDIATE  OR  DEEP  WATER 

C 

C  COMMON/ AB/N , MM , BETA , OMEGA , G , DS IG , DRHO , WKO 

C 

C 

C  SUBROUTINE  BDYGRD(XG,YG,THETA,MX, XI, C,XLB,IOPTCO, COSINE, SINE) 

C 

C  THIS  SUBROUTINE  (BounDarY  GRID)  DETERMINES  THE  BOUNDARY  OF 
C  COMPUTATIONAL  REGION  ON  GRID  MESH  FOR  DIFFERENT  COORDINATE  SYSTEMS. 

C 

C  INPUT:  XG,  YG,  THETA,  MX,  XI,  C,  XLB,  lOPTCO,  COSINE,  SINE 
C  RETURNED:  XG(1),  YG(1) 

C 

C 

C  SUBROUTINE  CROSS (PXl ,PY1 ,PX2,PY2,X1 ,Y1 ,X2,Y2, INTCON,XINT,YINT) 

C 

C  SUBROUTINE  FOR  PROFILE  INTERSECTION  WITH  LINE  SEGMENT. 

C 

C  INPUT:  PX1,PYI,PX2,PY2,X1,Y1,X2,Y2;  RETURNED:  INTCON,XINT,YINT 
C 

C  DEFINITION  OF  VARIABLES; 

C  (PX1,PY1)*FIRST  END-POINT  DEFINING  PROFILE 

C  (PX2,PY2)*SECOND  END-POINT  DEFINING  PROFILE 

C  (XI, YI)*  FIRST  ENDPOINT  DEFINING  SEGMENT 

C  (X2,Y2)-  SECOND  ENDPOINT  DEFINING  SEGMENT 

C  INTCON-"INTERSECTION  CONDITION"  :  *0  FOR  NO  CROSSING  WITHIN  SEGMENT; 

C  *1  FOR  CROSSING  AT  ONE  POINT  ON  SEGMENT;  *2  FOR  PARALLEL  LINES, 

C  le.  CROSSING  ON  WHOLE  LENGTH  OF  SEGMENT. 

C  XINT,YINT*INTERSECTION  OF  THESE  TWO  LINES 

C 

C 

C  SUBROUTINE  CRSOUT(X,Y,A,S, lUNIT) 

C 

C  SUBROUTINE  TO  OUTPUT  CROSSING  DATA  (TRIBUTARY  TO  SUBROUTINE  INTRSC) 

C 

C  INPUT:  X,Y,A,S,IUNIT 

C  RETURNED:  WRITE  THE  OUTPUT  ON  THE  SPECIFIED  (lUNIT)  FILE 
C 

C  COMMON/ AD/ S 1 , S2 , lOPTBU , lOPTBD , I BATCH 

C 
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c 

C  SUBROUTINE  INTRSC(N, XBASE, XN.YN.XOLD.YOLD, XI ,Y1 ,X2,Y2, 

C  *  AMPLT,AMP0LD,PHASE,PH0LD,1UN1T) 

C 

C  SUBROUTINE  TO  FIND  INTERPOLATED  VALUES  FOR  PHASE  AND  AMPLITUDE  ALONG 
C  SPECIFIED  CROSS-SECTIONS.  THE  INTERPOLATION  IS  LINEAR  BETWEEN  THE 
C  UNEVENLY  SPACED  POINTS.  AT  EACH  CALL  TO  THIS  SUBROUTINE  THE  ENTIRE 
C  COMPUTATIONAL  LINE  IS  CHECKED  AGAINST  EACH  PROFILE. 

C 

C  INPUT :  N , XBASE , XN , YN , XOLD , YOLD ,X1 , Y 1 , X2 , Y2 , AMPLT , AMPOLD , PHASE , PHOLD , 

C  lUNIT 

C  OUTPUT:  CALL  SUBROUTINE  CRSOUT 
C 

C  DEFINITION  OF  VARIABLES: 

C  N-  NUMBER  OF  NODES  PRESENTLY  ON  COMPUTATIONAL  LINE 
C  XBASE*  X-COORDINATE  OF  BASE  LINE  (XUB) 

C  XN,YN-  ARRAYS  WHICH  STORE  THE  X  AND  Y  LOCATIONS  OF  THE  NODES  ON  THE 

C  PRESENT  COMPUTATIONAL  LINE 

C  XA.YA.XB.YB-  THE  TWO  NODES  ON  THE  COMPUTATIONAL  LINE  WHICH  ARE  BEING 
C  CHECKED  AT  ANY  GIVEN  MARCHED  STEP. 

C  XOLD, YOLD-  ARRAYS  WHICH  STORE  THE  X  AND  Y  LOCATIONS  OF  THE  NODES  ON 

C  THE  COMPUTATIONAL  LINE  AT  PREVIOUS  STEP. 

C  XI, Yl-  STORE  LOCATION  OF  THE  FIRST  POINT  WHICH  DEFINES  THE  PROFILE. 

C  X2,Y2-  STORE  LOCATION  OF  THE  SECOND  ENDPOINT  OF  THE  PROFILE. 

C  AMPLT-  AMPLITUDES  AT  THE  NODES  OF  THE  PRESENT  COMPUTATIONAL  LINE. 

C  AMPOLD-  AMPLITUDES  AT  THE  NODES  OF  THE  COMPUTATIONAL  LINE  AT  THE 
C  PREVIOUS  STEP. 

C  PHASE-  VALUES  OF  THE  PHASE  ANGLE  AT  THE  NODES  OF  PRESENT  LINE 

C  PHOLD-  VALUES  OF  THE  PHASE  ANGLE  AT  THE  NODES  AT  PREVIOUS  STEP. 

C  lUNIT-  NUMBER  OF  THE  LOGICAL  UNIT  TO  WRITE  THE  RESULTS  TO 

C  NW-  CURRENT  NO.  OF  POINTS  AT  UPWAVE  SIDE  OF  BREAKWATER 
C  NWl-  PREVIOUS  NO.  OF  POINTS  AT  UPWAVE  SIDE  OF  BREAKWATER 
C 

C  DIMENSION  XN(N),YN(N),AMPLr(N),XOLD(N),YOLD(N),AMPOLD(N) 

C  DIMENSION  PHASE(N),PHOLD(N),NW(5),NWl(5) 

C 

C 

C  b)  SUBROUTINES  THAT  DEAL  WITH  THE  DEPTH  INTERPOLATION  SCHEMES 
C  FOR  BOTH  THE  BACKGROUND  AND  REAL  TOPOGRAPHY. 

C  CALCCF 

C  CUBDEP 

C  CUSPIP 

C  DEPINP 

C  LSBFIT 

C  LSTSQR 

C  MAKEC 

C  MAKEQN 

C  MAKEQ2 

C  PCUBIC 

C  SPLINE 

C  SPL4PT 

C  TRALOC 

C 

C 

C  SUBROUTINE  CALCCF(N,MX,XI,C) 

C 
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C  THIS  SUBROUTINE  CAI CCF(CALculate  Cubic  spline  CoeFfients)  IS  PART  OF 
C  A  THREE  SUBROUTINE  PACKAGE  TO  PERFORM  THE  CALCULATION  OF  A  CUBIC  SPLINE 
C  (TRIBUTARY  TO  ROUTINE  "CUSPIP"). 

C 

C  INPUT:  N.MX.XI;  RETURNED:  C 
C 

C  NOTE:  N-  NO.  OF  POINTS,  N  MUST  BE  .LT.  MX 

C 

C 

C  SUBROUTINE  CUBDEP(IFLAG, DEPTH, XGRID,YGRID,X,Y, DR, DRDX) 

C 

C  THIS  SUBROUTINE  CONTROLS  THE  EXECUTION  OF  "REAL"  DEPTH  OPTIONS 
C  IREALD(IFLAG)-2  AND  3  .  OPERATING  ON  A  16  NODE  GRID,  FOUR  CUBIC 
C  SPLINES  ARE  DONE  IN  ONE  DIRECTION  AND  THEN  ONE  SPLINE  IS  DONE  IN 
C  THE  PERPENDICULAR  DIRECTION. 

C  IF  IREALD»2  CUBIC  SPLINE  ACROSS  EACH  X-ROW  IS  DONE  FIRST.  I.E. 

C  SPLINE  ACROSS  ROWS  TO  INTERPLOATE  QUANTITY  AT  THE  INTERSECTION  OF 
C  EACH  ROW  WITH  THE  DESIRED  Y  AND  THEN  SPLINE  DOWN  THESE  FOUR  VALUES 
C  TO  YIELD  AN  INTERPOLATED  QUANTITY  AT  X. 

C  IF  IREALD-3  CUBIC  SPLINE  IS  DOWN  ON  EACH  Y-COLUMN  FIRST,  THEN 
C  ACROSS  X-ROW. 

C 

C  INPUT:  IFLAG, DEPTH, XGRID,YGRID,X,Y 

C  OUTPUT:  DR, DRDX 

C 

C  DEFINITION  OF  VARIABLES: 

C  IFLAG*  FLAG  OF  OPTIONS  FOR  INTERPOLATION 

C  DEPTH-  FUNCTION  TO  BE  INTERPOLATED 

C  XGR1D,YGR1D-  GRIDS  OF  THE  FUNCTION 

C  X,Y-  LOCATION  OF  INTEREST 

C  DR-  INTERPOLATED  VALUEOF  FUNCTION  AT  (X,Y) 

C  DRDX-  FIRST  DERIVATIVE  OF  THE  FUNCTION  AT  (X,Y)  W.R.T.  X  OR  Y 

C 

C  DIMENSION  DEPTH(16),XGRID(A),YGRID(4),DINTRP(4) 

C 

C 

C  SUBROUTINE  CUSPIP(MX,NY,X,Y,D,C,S1,S2,DBASE) 

C 

C  SUBROUTINE  CUSPIP  (  CUbic  SPline  Interpolation  ) 

C  INPUT:  MX,NY,X(just  passed  through) ,Y, D, SI ,S2, DBASE 

C  RETURNED:  C 

C 

C  NOTE:  THE  ARRAY  C  CONTAINS  THE  COEFFICIENTS  OF  THE  CUBIC  EQUATION 
C  USED  IN  A  CUBIC  SPLINE  INTERPOLATION  ALONG  EACH  ROW  OF  NODES.  THIS 
C  SUBROUTINE  IS  USED  FOR  "BACKGROUND"  DEPTH  INTERPOLATION  OPTION  1. 

C  A  CUBIC  SPLINE  IS  SET  UP  FOR  THE  AVERAGE  DEPTH  AT  X-ROWS,  AND  THE 
C  EQUATIONS  ARE  SOLVED  BY  CALLING  SUBROUTINES  "SPLINE"  AND  "CALCCF". 

C 

SUBROUTINE  DEPINP(IX,IX1 ,IY,1Y1 ,X,Y,DR,UX,VY,DIVU) 

SUBROUTINE  DEPINP  (DEPth  INterPolation)  RETURNS  A  VALUE  OF  THE  "REAL" 

C  DEPTH, CURRENT  COMPONENTS  AND  DIVERGENCE  OF  CURRENT  AT  ANY  INPUT  (X,Y) 

C  LOCATION.  THE  FLAG  FOR  THE  APPROPRIATE  DEPTH  AND/OR  CURRENT 
C  INTERPOLATION  SCHEME  IS  "IREALD"  AND  IS  PASSED  IN  VIA  THE  COMMON  BLOCK. 

C 

C  INPUT;  X  AND  Y;  RETURNED:  DR,UX,VY,D1VU 


111 


o  o  o 


C 

C  DEFINITIONS  OF  VARIABLES: 

C  MX-  NUMBER  OF  NODES  IN  X-DIRECTION  (INCLUDES  1  ARTIFICIAL  NODE). 

C  NY-  NUMBER  OF  NODES  IN  Y-DIRECTION  (INCLUDES  2  ARTIFICIAL  NODES). 

C  IX-  NUMBER  OF  X-LOCATION  OF  NODE  ON  DEPTH  GRID. 

C  IXl-  IX+1 

C  lY-  NUMBER  OF  Y-LOCATION  OF  NODE  ON  DEPTH  GRID. 

C  lYl-  IY+1 

C  XI-  ARRAY  OF  X-LOCATIONS  OF  GRID  POINTS  OF  INPUT  DEPTHS. 

C  YI-  ARRAY  OF  Y-LOCATIONS  OF  GRID  POINTS  OF  INPUT  DEPTHS. 

C  UEP-  ARRAY  OF  VALUES  OF  INPUT  DEPTHS 

C  X-  X-LOCATION  OF  POINT  OF  INTEREST. 

C  Y-  Y-LOCATION  OF  POINT  OF  INTEREST. 

C  DR-  THE  INTERPOLATED  DEPTH  AT  THE  POINT  OF  INTEREST 

C  UX-  THE  INTERPOLATED  CURRENT  COMPONENT  IN  X-DIR. 

C  VY-  THE  INTERPOLATED  CURRENT  COMPONENT  IN  Y-DIR. 

C  DIVU-  DIVERGENCE  OF  CURRENT  VECTOR 

C  NOTE:  THIS  IS  AN  INTERPOLATION  OF  ACTUAL  DEPTHS,  NOT  BACKGROUND  DEPTHS. 
C 

C  COMMON/ AF/NTRUC , IDEPM , IPLINE , DC , DBASE ,MX , NY , TIDE 

C  COMMON/AG/XI,YI,DEP,U,V 

C  COMMON/ D I / I BACKD , IREALD , I BREAK , ICURRN 

C  COMMON/ CC/  C 

C  DIMENSION  XI(134),YI(133),DEP(134,133),TEMP(16),XGRID(4) 

C  DIMENSION  YGRID(4),C(4,134),U(134,133),V(134,133),B(6) 

C 

C 

C  SUBROUTINE  LSBFIT(MX,NY,XI ,DEP,C) 

C 

C  THIS  SUBROUTINE  (Least  Square  Best  FITting)  EXECUTES  OPTION 
C  IBACKD-2,  WHICH  IS  A  LEAST  SQUARES  FIT  OF  A  CUBIC  FUNCTION  TO  ALL  OF 
C  THE  INPUT  DEPTHS  AS  THE  BACKGROUND  DEPTH  (INVARIANT  IN  Y-DIRECTION) . 

C  DEPTH-Cl  +  C2  X  +  C3  X**2  +  C4  X**3 

C  THESE  4  COEFFICIENTS  ARE  RETURNED  IN  ARRAY  C(4,134)  WHICH  IS  DECLARED 
C  IN  CASE  IBACKD-1. 

C 

C  INPUT:  MX,NY,XI,DEP;  RETURNED:  C 
C 

C  DIMENSION  A(4,4),B(4),XI(134),DEP(134,133),C(4,134) 

C 

C 

C  SUBROUTINE  LSTSqR(DEPTH,XGRID,YGRlD,X, Y,DR,B) 

C 

C  THIS  SUBROUTINE  IS  TRIBUTARY  TO  "DEPINP"  AND  EXECUTES  OPTION 
C  IREALD-4.  IT  PERFORMS  A  LEAST  SQUARES  SURFACE  FIT  ON  THE  SIXTEEN 
C  DATA  POINTS  OF  THE  COMPUTATIONAL  MOLECULE  TO  FORM  A  6  COEFFICIENT 
C  POLYNOMIAL. 

C  G(X,y)-  AO  +  A1  X  +  A2  Y  +  A3  X  Y  +  A4  X**2  +  A5  Y**2 
C 

C  INPUT:  DEPTH, XGRID,YGRID,X,Y;  RETURNED:  DR 

C 

C  DIMENSION  XGRID(4),YGRID(4),DEPTH(16),A(6,6),B(6) 

C  COMMON/DI/IBACKD, IREALD, IBREA, ICURRN 

C 

SUBROUTINE  MAKEC(C) 
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C  THIS  SUBROUTINE  (MAKE  Coefficients)  FORMS  THE  ARRAY  "C"  WHICH 
C  CONTAINS  THE  COEFFICIENTS  FOR  A  CUBIC  SPLINE  FIT  TO  BACKGROUND 
C  TOPOGRAPHY.  FOR  A  POSSIBLE  INTERPOLATION  SCHEME  OF  BACKGROUND 
C  DEPTH  THE  ARRAY  CONTAINS  THE  COEFFICIENTS  OF  A  SINGLE  CUBIC 
C  POLYNOMIAL  FOR  THE  ENTIRE  BACKGROUND  DETERMINED  FROM  A  LEAST-SQUARES 
C  ANALYSIS.  THIS  SUBROUTINE  ALSO  READS  THE  LOCATIONS  OF  ALL  THE  NODES 
C  FOR  THE  INPUT  DEPTH  MESH,  AS  WELL  AS  ALL  OF  THE  DEPTHS  AND/OR  CURRENT 
C  AT  THESE  NODES. 

C 

C  RETURNED:  C 
C 

C  COMMON/ AC/ NN , M , XO , YO , T , XUB , XLB , YLB , YRB .ALPHA , lOPTCO 

C  COMMON/ AD/ S 1 , S2 , lOPTBU , lOPTBD , IBATCH 

C  COMMON/ AF/ NTRUC , IDEPM , IPLINE , DC , DBASE ,MX , NY , TIDE 

C  COMMON/AG/XI,YI,DEP,U,V 

C  COMMON/DI/ IBACKD , IREALD , IBREAK, ICURRN 

C  DIMENSION  XI(134),YI(133),DEP(134,133),C(4,134),TEMPC13A) 

C  DIMENSION  U(134,133),V(134,133),TEMP1(134),TEMP2(134) 

C 

C 

C  SUBROUTINE  MAKEQN(A,B,X, Y,D) 

C 

C  THIS  SUBROUTINE  (MAKE  EQuatioN)  SETS  UP  THE  EQUATIONS  FOR  A  LEAST 
C  SQUARE  FIT  FOR  A  6  COEFFICIENT  POLYNOMIAL  USED  FOR  OPTION  IREALD=4. 

C  THESE  EQUATIONS  ARE  SOLVED  IN  THE  CALLING  PROGRAM. 

C 

C  INPUT:  X,Y,D;  RETURNED:  A,B 
C 

C  DIMENSION  X(4),Y(4),D(16),A(6,6),B(6) 

C 

C 

C  SUBROUTINE  MAKEQ2(A,B,XGRID,MX,NY,DEP) 

C 

C  TO  FORM  THE  EQUATIONS  FOR  A  LEAST-SQUARES  FIT  TO  A  FOUR  COEFFICIENT 
C  POLYNOMIAL  FOR  INTERPOLATION  OF  BACKGROUND  DEPTH.  THIS  CORRESPONDS  TO 
C  OPTION  IBACKD-2.  THESE  EQUATIONS  ARE  SOLVED  IN  THE  CALLING  PROGRAM. 

C 

C  DIMENSION  A(4,4),B(4),XGRID(134),DEP(134,133) 

C 

C 

C  FUNCTION  PCUBIC(XBAR) 

C 

C  FUNCTION  PCUBIC  (Polynoraial-CUBIC)  RETURNS  A  DEPTH  FOR  THE  BACKGROUND 
C  TOPOGRAPHY.  THE  FLAG  VARIABLE  "IBACKD"  WHICH  CONTROLS  THE  OPTION  CHOSEN 
C  IS  PASSED  IN  THROUGH  THE  COMMON  BLOCK. 

C 

C  INPUT:  XBAR;  RETURNED:  PCUBIC 
C 

C  COMMON/ AF/NTRUC , IDEPM , IPLINE , DC , DBASE , MX , NY , TI DE 

C  COMMON/ AG/XI,YI,DEP,U,V 

C  COMMON/ DI / I BACKD , IREALD , IBREAK .ICURRN 

C  COMMON/CC/  C 

C  DIMENSION  XI(134),C(4,134),YI(133),DEP(134,133) 

C  DIMENSION  U(134,133),V(134,133) 

C 

C 
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C  SUBROUTINE  SPLINE(N, I ,XI ,C) 

C 

C  THIS  SUBROUTINE  IS  PART  OF  AN  EQUATION  SOLVER  THAT  IS  TRIBUTARY 
C  TO  SUBROUTINE  "CUSPIP".  THIS  ROUTINE  IS  USED  FOR  OPTION  IBACKD=1. 

C 

C  INPUT:  N.I.XI;  RETURNED:  C 
C 

C  COMMON/ AF/NTRUC , IDEPM , IPLINE , DC , DBASE , MX , NY , TIDE 

C  DIMENSION  XI(MX),C(4,13A),D(134),DIAG(134) 

C 

C 

C  SUBROUTINE  SPL4PT(X,XGRID,Dl ,D2,D3,D4,FX,DFDX) 

C 

C  THIS  SUBROUTINE  (SPLlne  4  Points)  DOES  A  CUBIC  SPLINE  OVER  4  NODES 
C  (3  SEGMENTS)  AND  RETURNS  AN  INTERPOLATED  VALUE.  THIS  CORRESPONDS  TO 
C  OPTION  IREALD-2  OR  3. 

C 

C  INPUT:  X,XGRID,D1,D2,D3,D4 

C  OUTPUT:  FX.DFDX 

C  DEFINITION  OF  VARIABLES: 

C  X=  THE  LOCATION  AT  WHICH  AN  INTERPOLATED  VALUE  IS  DESIRED. 

C  XGRID(4)-  AN  ARRAY  OF  THE  X-LOCATIONS  OF  THE  4  POINTS  AT 

C  WHICH  THE  DEPTH  IS  KNOWN 

C  D1,D2,D3,D4-  THE  KNOWN  DEPTHS  AT  THE  FOUR  NODES  BETWEEN 

C  WHICH  AN  INTERPOLATION  IS  TO  BE  DONE. 

C  FX*  THE  INTERPOLATED  DEPTH  AT  LOCATION  X. 

C  DFDX-  FIRST  DERIVATIVE  OF  DEPTH  OR  CURRENT  W.R.T.  X  OR  Y 

C 

C  DIMENSION  XGRID(4),DX(3),A(2,2),B(2) 

C 

C 

C  SUBROUTINE  TRALOC(IXO,1X,IX1 ,IX2,1Y0,IY,IY1 ,IY2,FF,TEMP) 

C 

C  STORE  QUANTITIES  FOR  LOCAL  TRANSFORMATION  IN  16-POINT  LSTSQR 
C 

C  INPUT:  IX0,IX,IXI,IX2,IY0,IY,IY1,IY2,FF 
C  OUTPUT:  TEMP 
C 

C  DIMENSION  FF(134,133),TEMP(16) 

C 

C 

C  c)  SUBROUTINES  USED  FOR  EQUATION  SOLVING 
C 

C  GJSOLV  -  N  X  N  GAUSS-JORDAN 

C  SOLVE2  -  2  X  2  GAUSS-JORDAN 

C  SOLVE  -  TRIDIAGONAL 

C 

&&&&&&&&&&&&&& 

C 

C  SUBROUTINE  6JS0LV(A,B,N) 

C 

C  THIS  SUBROUTINE  SOLVES  AN  N  x  N  MATRIX  VIA  GAUSS-JORDAN  ELIMINATION 
C 

C  INPUT:  A.B.N;  OUTPUT:  B 

C 

C  VARIABLE  DEFINITION: 
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C  A-  MATRIX  OF  COEFFICIENTS  IN  TERMS  OF  THE  EQUATION  SYSTEM 

C  B-  RIGHT-HAND-SIDE  OF  EQNS.— TO  BE  SOLVED,  ALSO  USED  TO  STORE 

C  SOLVED  VALUES 

C  N-  NUMBER  OF  UNKNOWNS 

C  INTERNAL: 

C  J-PIVOT  ROW-PIVOT  COLUMN 

C  I-COLUMN  NUMBER 

C  K=NON-PIVOT  ROW  NUMBER 

C  DIMENSION  A(N,N),  B(N) 

C 

C 

C  SUBROUTINE  SOLVE2(A,B) 

C 

C  SUBROUTINE  TO  SOLVE  A  2  x  2  MATRIX.  SIMILAR  TO  SUBROUTINE  GJSOLV  FOR 
C  N-2  BUT  MORE  EFFICIENT  AS  IT  IS  LESS  GENERAL. 

C 

C  DIMENSION  A(2,2),  B(2) 

C 

C 

C  SUBROUTINE  SOLVE(N,Al ,A2,A3,B,FN) 

C 

C  SUBROUTINE  TO  SOLVE  A  TRIDIAGONAL  MATRIX. 

C 

C  INPUT:  N,A1,A2,A3,B;  RETURNED:  FN 
C 

C  DEFINITION  OF  VARIABLES: 

C  N«  THE  NUMBER  OF  UNKNOWNS  WHICH  ARE  TO  BE  SOLVED 
C  A1  -  THE  FIRST  COEFFICIENT  OF  EACH  ROW 

C  A2  -  THE  MIDDLE  COEFFICIENT  IN  EACH  ROW 

C  A3  -  THE  THIRD  COEFFICIENT  IN  EACH  ROW 
C  B  -  THE  RIGHT-HAND-SIDE  OF  THE  EQUATIONS  TO  BE  SOLVED 
C  FN  -  SOLUTIONS  OF  EQUATION  SYSTEM 
C  EXAMPLE  OF  INPUT  FORMAT  (SAY  N=6): 

C  THE  FIRST  AND  LAST  ROWS  ARE  SPECIAL  CASES. 

C 


c 

< 

Aid) 

A2(l) 

A3d) 

0 

0 

0  > 

{  B(l) 

} 

c 

< 

Al(2) 

A2(2) 

A3(2) 

0 

0 

0  > 

{  B(2) 

} 

c 

< 

0 

Al(3) 

A2(3) 

A3(3) 

0 

0  > 

{  B(3) 

} 

c 

< 

0 

0 

Al(4) 

A2(4) 

A3(4) 

0  >  - 

{  B(4) 

) 

c 

< 

0 

0 

0 

Al(5) 

A2(5) 

A3(5)> 

{  B(5) 

) 

c 

< 

0 

0 

0 

Al(6) 

A2(6) 

A3(6)> 

{  B(6) 

) 

C 


C  COMPLEX  B(N),FN(N),A1(N),A2(N),A3(N) 

C 
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C 

C************************************»**********************,^*****j^*^^^ 

THIS  PROGRAM  IS  DEVELOPED  FOR  THE  DIFFRACTION  AND  REFRACTION  IN 
THE  COASTAL  REGION  WITH  VARIATION  OF  WATER  DEPTH 
VIA  CURVILINEAR/CARTESIAN  COORDINATES  COMPUTATION 
*************************;«,******************************************** 
NOTE:  CERTAIN  RELATIONSHIPS  BETWEEN  N  AND  M  MUST  BE  MAINTAINED. 

1)  N+M  .LE.  2000;  2)  N  .LE.  500 

C  ALSO,  WHEN  USING  CURVILINEAR  COORDINATES  DELTA  SIGMA 
C  MUST  BE  AN  INTEGER  MULTIPLE  OF  DELTA  RHO. 

C  l.e.  DSlG-15  AND  DRHO-10  IS  NOT  ALLOWABLE. 

C 

COMMON / AB/ N , MM , BETA , OMEGA ,G,DSIG,DRHO, WKO 
COMMON/ AC/ NN , M , XO , YO , T , XUB , XLB , VLB , YRB , ALPHA, lOPTCO 
COMMON/AD/S  1 , S2 , lOPTBU , lOPTBD, IBATCH 
COMMON/ AE/ IP , IFRCT , XDAMP , AO , FRCT 
COMMON/AF/NTRUC,tDEPM,IPLINE,DC,DBASE,MX,NY,TlDE 
COMMON/AG/XI , YI , DEP , U , V 

COMMON/AH/ NUMSEC,IUNIT, XI 1 ,Y11,X21, Y21, TITLE 

COMMON/AI/IBKWTR,IBKWPT,XBW,YBW 

COMMON/DI/IBACKD, IREALD, IBREAK, ICURRN 

DIMENSION  IUNIT(10),X11(10),Y11(10),X21(10),Y21(10) 

DIMENSION  IBKWPT(5),XBW(5,10),YBW(5,10) 

CHARACTER*80  TITLE 
C 

WRITE(6,1) 

1  FORMAT(///'  THIS  IS  A  REMINDER!!!'//,'  HAVE  YOU  PREPARED 
&  FILES  OF  DEPTH.DAT  AND  LOC.DAT??'// ,'  HAVE  YOU  PREPARED 
&  FILES  OF  CURRNX.DAT  AND  CURRNY.DAT'/'  IF  CURRENT  FIELD  IS 
&  TO  BE  CONSIDERED??'//'  INPUT  (1-9)  TO  CONTINUE;  0  TO  STOP'/) 
READ(5,*)IG0ING 
If(IGOING  .EQ.  0)  GO  TO  1000 
C 

C  THE  UNIT  DESIGNATIONS  ARE  AS  FOLLOWS: 

C  5  -  THIS  IS  THE  KEYBOARD 

C  6  -  THIS  IS  THE  SCREEN 

C  9  -  THIS  IS  AN  INPUT  FILE  CONTAINING  THE  DEPTHS 

C  10  -  THIS  IS  AN  INPUT  FILE  CONTAINING  GRID  COORD. 

C  11  -  THIS  IS  AN  INPUT  FILE  CONTAINING  X-COMP.  OF  CURRENT 

C  12  ■  THIS  IS  AN  INPUT  FILE  CONTAINING  Y-COMP.  OF  CURRENT 

C  FILES  OF  UNITS  11  AND  12  ARE  NEEDED  WHEN  ICURRN  -  1 
C  13  -  THIS  IS  AN  INPUT  FILE  (MISCELLANEOUS  INFO) 

C  21-30  -  THESE  ARE  OUTPUT  FILES  CONTAINING  LOCATIONS, 

C  AMPLITUDE,  AND  PHASE  DATA  FOR  EACH  PROFILE. 

C 

0PEN(UN1T-9,NAME-'DEPTH.DAT',STATUS»'0LD') 

OPEN ( UNIT- 1 0 , NAME-' LOC . DAT' , STATUS- ' OLD' ) 

C 

C  DEFINITION  OF  VARIABLE  NAMES: 

C 

C  IBATCH-  0:  INTERACTIVE  MODE;  1;  SEMI-INTERACTIVE;  2:  BATCH  MODE 

C  lOPTCO-  0:  CURVILINEAR  COORDINATES 

C  1:  CARTESIAN  COORDINATES  (PROPAGATION  DIRECTION) 

C  2:  CARTESIAN  COORDINATES  (FIXED) 

C  lOPTBU.IOPTBD  :UPWAVE  AND  DOWNWAVE  LATERAL  BOUNDARY  CONDITION 

C  0:  OPEN  BOUNDARY  CONDITIONS 

C  1:  SOLID  BOUNDARY  CONDITIONS 

C  AO-  INITIAL  WAVE  AMPLITUDE  (UNIT  MUST  BE  CONSISTENT  WITH  G) 

C  T-  THIS  IS  THE  WAVE  PERIOD  (UNIT  MUST  BE  CONSISTENT  WITH  G) 

C  ALPHAD  (IN  DEGREE)-  INITIAL  ANGLE  OF  ATTACK  (CONVERTED 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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INTERNALLY  TO  RADIANS).  NOTE:  STANDING  ON  SHORE  AND 
FACING  seaward,  ALPHA  IS  NEGATIVE  FOR  WAVES 
COUNTER-CLOCKWISE  FROM  THE  12  O'CLOCK  POSITION 
AND  POSITIVE  FOR  THOSE  FROM  THE  CLOCKWISE  AREA 
TIDE»TIDE  LEVEL  REFERRED  TO  MEAN  SEA  WATER  LEVEL 
G-  ACCELERATION  DUE  TO  GRAVITY 

MXGRID-  THIS  IS  THE  NUMBER  OF  ROWS  (X-CONSTANT)  OF 
DEPTH  DATA  WHICH  ARE  TO  BE  INPUT 
NYGRID-  THIS  IS  THE  NUMBER  OF  COLUMNS  (Y-CONSTANT) 

OF  DEPTH  DATA  WHICH  ARE  TO  BE  INPUT 
X0,Y0-  REFERENCE  POINT  OF  REFERENCE  LINE  (CHOOSE  POINT 
AT  THE  UPWAVE  SIDE  OF  INTERESTED  AREA) 

DSIG*  DELTA  SIGMA  -  THE  GRID  SIZE  IN  THE  DIREON 
OF  WAVE  PROPAGATION 

DRHO-  DELTA  RHO  -  THE  GRID  SIZE  PARRALEL  TO  THE 
PHASE  LINE 

N-  THE  NUMBER  OF  NODES  ALONG  THE  PHASE  LINE. 

NOTE:  N  HAS  INTERMEDIATE  VALUES  BEFORE  THE  ABOVE 
DESCRIPTION  IS  CORRECT 

M=  MAX  NUMBER  OF  MARCHING  STEPS  IN  PROPAGATION 
S1,S2-  BOTTOM  SLOPE  AT  FIRST  ROW  OF  INPUT  DEPTHS 
(NEAR  SHORE)  AND  LAST  ROW  (DEEP  WATER)  -  USED 
ONLY  FOR  CUBIC  SPLINE  OF  BACKGROUND  DEPTH 
DC*  DEPTH  AT  CONSTANT  REGION  (DEEP  WATER) 

DBASE-DEPTH  AT  BASELINE 
U-  X-COMPONENT  OF  CURRENT 
V-  Y-COMPONENT  OF  CURRENT 

IP-NUMBER  OF  TIME  STEPS  TO  SKIP  BETWEEN  INTERPOLATIONS 
IFRCT,XDAMP-FLAG  FOR  BOTTOM  FRICTION  AND  LOCATION  AT 
WHICH  BOTTOM  FRICTION  EFFECTS  START  TO  BE  CALCULATED 
FRCT-  BOTTOM  FRICTION  FACTOR 
TITLE-  TITLE  OF  OUTPUT  DATA  FILES 
NTRUC-  NUMBER  OF  NODES  ON  TRUNCATED  PHASE  LINE 

IDEPM.IPLINE-  printing  FLAGS  (1:  PRINT  ON  SCREEN;  0:NO  PRINT-OUT) 
IBKWTR-FLAG  OF  PRESENCE  OF  BREAKWATER 
0  :  NO  breakwater  AT  ALL 

#  :  NO.  OF  BREAKWATERS  WILL  BE  ENCOUNTERED  DURING 
COMPUTING  (LIMITED  TO  5) 

IBKWPT(I)-  NO.  OF  POINTS  TO  DESCRIBE  LINEAR  SEGMENTS  OF 
I-TH  BREAKWATER  (2  TO  10,  IF  ANY) 

XBW(I,J) ,YBW(I,J)-COORDLNATES  OF  J-TH  POINT  ON  I-TH  BREAKWATER 
ICURRN-FLAG  OF  CURRENT  FIELD 

1  :  EFFECTS  OF  CURRENT  FIELD  ON  WAVE  CONSIDERED 
0  :  NO  CURRENT  EFFECTS 

C(4,MX)-  THIS  IS  THE  ARRAY  OF  COEFFICIENTS  USED  IN  A  CUBIC  SPLINE 
INTERPOLATION.  Ex.  F(x)-  C( I , I)+C(2 , I)x+C( 3 , I)x*x+C(4 , I)x*x*x. 
NN-MAX  possible  number  of  NODES  TO  LANDWARD 


WRITE(6,101) 


FORMAT('  WHICH  MODE  DO  YOU  WANT??'//, 

'  2-BATCH:  FROM  THIS  POINT  ON  YOU  CAN  NOT  ALTER  ANY  PARAMETERS'/ 
I-SEMI-INTERACTIVE;  NO  DATA  INPUT  FROM  KEYBOARD,  BUT  AT  '/ 

'  SEVERAL  BREAKPOINTS  PROGRAM  ALLOWS  YOU  TO  ADJUST  PARAMETERS'/ 


'  0-INTERACTlVE;  ALL  DATA  INPUT  FROM  KEYBOARD  EXCEPT  DEPTH. DAT,'/ 
'  LOC.DAT,  AND/OR  CURRNX.DAT  AND  CURRNY.DAT.  YOU  CAN  ALSO  '/ 

'  ADJUST  PARAMETERS'/) 

READ(5,*)  IBATCH 

IFdBATCH  .NE.  0)  GO  TO  102 

IUNlTl-5 

OPEN( UNIT- 1 3 . NAME-' IN . DAT' . STATUS- 'NEW' ) 
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GO  TO  113 

102  IUNITl-13 

IFdBATCH  .EQ.  2)WR1TE(6 , 120) 

120  FORMAT(5(/),10X, 'PLEASE  WAIT! ! '/lOX,' PROGRAM  IS  RUNNING.'/ 
&,50('*')) 

OPEN (UN IT-13 ,NAME=' IN. DAT' ,STATUS“'OLD' ) 

113  IFdBATCH  .EQ.  0)  WR1TE(6,110) 

110  FORMAT('  CHOOSE  OPTION  FOR  COORDINATES  (lOPTCO)'/'  0 : CURV ILI NEAR ■ 
&'/'  1:CARTESIAN  (PROPAGATION  DIRECTION);'/'  2:FIXED  CARTESIAN'/) ’ 

READ(IUNIT1,*)I0PTC0 

IFdUNITl  .EQ.  5)  WRITE(13,*)  lOPTCO 

IFdBATCH  .EQ.  0)  WRITE(6,ni) 

111  FORMAT('  CHOOSE  OPTION  FOR  B.C.'/'  ( 10PTBU:UPWAVE-SIDE  BOUNDARY 

&  10PTBD:D0WNWAVE-S1DE  BOUNDARY);'/'  0:OPEN;  IrSOLID'/)  ’ 

READdUNlTI  ,*)I0PTBU,10PTBD 

IFdUNITl  .EQ.  5)  WR1TE(13,*)  lOPTBU,  lOPTBD 

IFdBATCH  .EQ.  0)  WRITE(6,114) 

114  FORMAT('  INPUT:A0,T.ALPHAD,G,TIDE,  FREE  FORMAT'/) 

READdUNlTI,*)  AO,  T.ALPHAD.G, TIDE 

IFdUKul  .EQ.  5'  WRITEd3,*)A0,T,ALPHAD,G,TIDE 
IFdBATCH  .EQ.  Oj  WR1TE(6,103) 

103  FORMAT('  1NPUT;MXGR1D,NYGR1D;FREE  FORMAT'/) 

READdUNlTI, *)MXGRID,NYGR1D 

IFdUNITl  .EQ.  5)  WRITE(  13,*)MXGRID,NYGRID 
IFdBATCH  .EQ.  0)  WRITE(6,104) 

104  FORMAT('  INPUT : XO ,Y0 , DSIG ,DRHO ,N,M, SI , S2 , DC , DBASE ; FREE  FORMAT'/) 
REAU(IUNIT1 ,*)XO,YO, DSIG,DRH0,N,M,S1,S2, DC, DBASE 

IFdUNITl  .EQ.  5)  WR1TE(13,*)X0,Y0,DS1G,DRH0,N,M,S1,S2,DC,DBASE 
IFdBATCH  .EQ.  0)  WRITE(6,105) 

105  FORMAT('  INPUT:IP;  FREE  FORMAT'/) 

READ(IUNIT1,*)IP 

IFdUNITl  .EQ.  5)  WRITE(13,*)IP 
IFdBATCH  .EQ.  0)  WRITF(6,5) 

5  FORMAT('  ENTER  CHOICE  FOR  BACKGROUND  DEPTH  INTERPOLATION  :'/ 

*'  IBACKD  -  0  : PLANE  BEACH  WITH  SLOPE  =  0.01  (DEBUGGING)'/ 

-  1  :CUBIC  SPLINE  OVER  AVG.  DEPTH  AT  EACH  ROW'/ 

*'  -  2  :LEAST  SQUARE  CUBIC  EQN.  IN  X-DIRECTION.'// 

*'  ENTER  IBACKD:'/) 

READ(IUNIT1,*)  IBACKD 

IFdUNITl  .EQ.  5)  WRITE(13,*)  IBACKD 

IFdBATCH  .EQ.  0)  WRITE(6,7) 

7  FORMAT(//'  ENTER  CHOICE  FOR  ACTUAL  DEPTH  INTERPOLATION  :'/ 

*'  IREALD  -  0  : PLANE  BEACH  WITH  SLOPE  -=  0.01  (DEBUGGING)'/ 

■  1  : LINEAR  AVG.  OF  4  SURROUNDING  GRID  POINTS.'/ 

*'  -  2  :USES  A  16-POINT  GRID  FOR  A  CUBIC  SPLINE  ACROSS'/ 

*'  EACH  OF  4  ROWS  AND  THEN  THE  COLUMNS  OF  THE  DESIRED  Y'/ 

*'  “3  ;LIKE  IREALD-2  EXCEPT  THE  SPLINE  IS  DONE  ON  '/ 

the  COLUMNS  FIRST  AND  THEN  THE  ROW  OF  THE  DESIRED  X'/ 

*'  -  4  :A  LEAST  SQUARE  FIT  OF  THE  16-POINT  GRID  TO'/ 

*  '  A  6-COEFFICIENT  DEPTH  EXPRESSION'// 

*  '  ENTER  IREALD:'/) 

READdUNlTI,*)  IREALD 

IFdUNITl  .EQ.  5)  WRITE(13,*)  IREALD 
IFdBATCH  .EQ.  0)  WRITE(6,106) 

106  FORMAT('  INPUT: IDEPM, IPLINE;  FREE  FORMAT'/) 

READdUNlTI, *)IDEPM,IPLINE 

IFdUNITl  .EQ.  5)  WR1TE(13,*)  IDEPM, IPLINE 

IFdBATCH  .EQ.  0)  WRITE(6,109) 

109  FORMAT('  INPUT: 1FRCT,XDAMP,FRCT'/) 

READdUNlTI, *)IFRCT,XDAMP,FRCT 
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IFdUNITl  .EQ.  5)  WRITE(13,*)  IFRCT,XDAMP,FRCT 
IF(IBATCH  .EQ.  0)  WR1TE(6,35) 

35  FORMAT('  ENTER  IBREAK  -  0  :NO  WAVE  BREAKING,'/ 

*  '  -  1  .-WAVE  BREAKING  IS  CONSIDERED'/) 

READdUNITl,*)  IBREAK 
IFdUNITl  .EQ.  5)  WRITE(13,*)  IBREAK 
IF(IBATCH  .EQ.  0)  WRITE(6,36) 

36  FORMAT('  ENTER  ICURRN  -  1  : PRESENCE  OK  CURRENT  FIELD'/ 

*  '  -  0  :NO  PRESENCE  OF  CURRENT  FIELD.'/) 

READdUNITl,*)  ICURRN 
IFdUNITl  .EQ.  5)  WRITE(13,*)  ICURRN 
IFdCURRN  .EQ.  0)  GO  TO  37 

0PEN(UNIT-1 1 ,NAME-'CURRNX. DAT' ,STATUS»'OLD' ) 

OPEN ( UNIT- 1 2 , NAME-'CURRNY . DAT' , STATUS-'OLD' ) 

37  DALPH-ALPHAD 
DC-DC+TIDE 
DBASE-DBASE+TIDE 
NTRUC-N 

CONVERT  ANGLE  TO  RADIANS 

ALPHA-ALPHAD*  3.1415926/180. 

MX-MXGRID+1 
NY-NYGRID+2 
NN-M 

IFCIBATCH  .EQ.  0)  WRITE(b,115) 

115  FORMAT('  ENTER  IBKWTR  -  0  :NO  PRESENCE  OF  BREAKWATER;'/ 

&  '  -  #  :TOTAL  NO.  OF  BREAKWATERS,  MAX.  NO.  -  5'/) 

READdUNITl, *)IBKWTR 
IFdUNITl  .EQ.  5)  WRITE (13,*) IBKWTR 
IF( IBKWTR  .EQ.  0)  GO  TO  117 
DO  118  I-l, IBKWTR 
IF(IBATCH  .EQ.  0)  WRITE(6 , 1 16)1 

116  FORMAT!'  ENTER  TOTAL  POINTS  OF  LINEAR  SEGMENTS  OF  BREAKWATER 
&  NO.  -',15,/'  AND  ITS  COORDINATES,  FIRST  POINT  STARTS  FROM 
&  THE  TIP  OF  THE  BREAKWATER.'/'  NO.  OF  POINTS  CAN  BE  FROM  2 
&  TO  10'/'  INPUT  IBKWPTd),XBWd,L),BYWd,L),L-l,lBKWPTd)'/) 

R£AD( lUNITl , * ) IBKWPTC I ) , (XBW( I , L) , YBW( I , L) , L- 1 , 1BKWPT( 1 ) ) 
IFdUNITl  .EQ.  5) 

&  WRITEd3,*)IBKWPTd),(XBWd,L),YBWd,L),L“l,lBKWPTd)) 

118  CONTINUE 

117  IF(IBATCH  .EQ.  0)  WR1TE(6,387) 

387  FORMAT!'  ENTER  TITLE,  MAX.  OF  80  CHARACTERS'//) 

READdUNITl, '(A)')  TITLE 
IFdUNITl  .EQ.  5)  WRITE(13,'  (A)')  TITLE 
IFdBATCH  .EQ.  0)  WRITE!6,396) 

396  FORMAT!'  INPUT  THE  NUMBER  OF  PROFILES  TO  BE  INTERPOLATED,'/ 

*  '  UP  TO  10  PROFILES  IS  ALLOWED  ON  ONE  RUN'/) 

READdUNITl,*)  NUMSEC 

IFdUNITl  .EQ.  5)  WRITE!13,*)  NUMSEC 
C 

C  ALLOW  USER  TO  REVIEW  AND  CHANGE  THE  VALUES  OF  THE  DEFAULT  PARAMETERS. 
C 

IFdBATCH  .EQ.  2)  GO  TO  389 
WRITE! 6, 20) 

20  FORMAT!'  DO  YOU  WISH  TO  REVIEW  THE  DEFAULT  PARAMETERS?'/ 

*  '  ENTER  1  FOR  YES,  0  FOR  NO'/) 

READ!5,*)I 

IF  d.NE.l)  GO  TO  389 
CALL  REVIEW 
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389  DO  441  JJJ-1,10 
IUNIT(JJJ)=20+JJJ 

398  IFdBATCH  .EQ.  0)  WRITE(6,397)JJJ 

397  FORMAK'  INFUT  TWO  END  POINTS  OF  DESIRED  PROFILE  NO.-  ',14,':'/ 

*  '  XI, Y1  AND  X2,Y2'/) 

READdUNITl,*)  X11(JJJ),Y1I(JJJ),X21(JJJ),Y21{JJJ) 

IFCIUNITI  .EQ.  5)  WRITE(I3,*)XU(JJJ),Y1UJJJ),X21(JJJ),Y21(JJJ) 
IF(JJJ.GE.NUMSEC)  go  to  399 
441  CONTINUE 
C 

C  CHECK  FOR  VALUES  WHICH  ARE  BEYOND  THE  PROGRAM'S  LIMITATIONS 
C  AND  SUBSTITUTE  ACCEPTABLE  VALUES 
C 

399  1F(N.LE.500)  GO  TO  25 
N=500 

WRITE(6,28) 

28  FORMAT('  NO.  OF  NODES  EXCEEDS  500,  N  -  500  HAS  BEEN  USED'/) 

25  IF(NN+N  .LT.  2000)  GO  TO  60 
NN-1500 

IF(M.LE.NN)  GO  TO  60 
M=NN 

WRITE(6,27) 

27  FORMAT!'  NO.  OF  STEPS  EXCEEDS  1500,  M  -  1500  HAS  BEEN  USED'/) 

60  CALL  MAKEPL 
CL0SE(UNlT-7) 

CL0SE(UNIT=8) 

CLOSE(l'NIT=20) 

CL0SE(UNIT-2l) 

CLOSE(UNIT-22) 

CLOSE(UNIT-23) 

CL0SE<UNlT-24) 

CLOSE(UNIT-25) 

CLOSE(UNIT-26) 

CLOSE! UNIT-27) 

CLOSE!UNIT-28) 

CLOSE!UNlT-29) 

CLOSE!UNIT-30) 

1000  STOP 
END 


SUBROUTINE  MAKEPL 

COMPLEX  FO!500),FN!500),C1,C3,C4,AI!500),A2!500), DTHE 
COMPLEX  AMPRD! 500 ) , A3 ! 500 ) , B( 500 ) ,CB , VV , V 1 , V2 , V3 
COMPLEX  C5!5),C6!5),C7!5),C8(5),C9(5),C10!5),C11!5),C12(5) 

COMPLEX  C50(5),C60(5),C70!5),C80(5),C90!5),C100!5),C110(5),C120!5) 
COMPLEX  CD1,CD2,CD3,CD4 

COMMON/ AB/ N , MM , BETA , OMEGA , G , DS IG , DRHO , WKO 

COMMON/ AC/ NN , M , XO , YO , T , XUB , XLB , YLB , YRB , ALPHA , lOPTCO 

COMMON/ AD/ S 1 , S  2 , lOPTBU , lOPTBD , IBATCH 

COMMON / AE/ 1 P , I F  RCT , XDAMP , AO , FRCT 

COMMON/ AF/NTRUC , IDEPM, IPLINE , DC , DBASE , MX, NY , TIDE 

COMMON/ AG/XI,YI,DEP,U,V 

COMMON/ AH/ NUMSEC , lUNlT , X 1 1 , Y 1 1 , X2 1 , Y2 1 , TITLE 
COMMON/ AI / 1 BKWTR , I BKW  PT , X  BW , YBW 
COMMON/ DI/ IBACKD , IREALD , IBREAK , ICURRN 
COMMON/CC/  C 

DIMENSION  ARO! 500) ,ARN! 500) ,ASN! 500) , ASO( 500) , IBROKN! 500) 

DIMENSION  XX! 2000) , XG! 500) ,YY! 2000) , YG! 500) , phASEL! 2000) 

DIMENSION  CG! 2000 ) , WKN ! 2000 ) , DEPM! 2000 ) , THETA! 2000 ) , AMPM! 2000 ) 
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DIMENSION  XOLD( 500 ) , Y0LD( 500 ) , XNEW( 500 ) , YNEW( 500 ) 

DIMENSION  AMPLT( 500 ) , PHASE( 500 ) , WKFS( 500 ) , DN0DE( 500 ) 

DIMENSION  C(4,134),XI(134),YI(133),DEP(134,133),U(134,133) 

DIMENSION  IUNIT(10),X11(10).YII(10).X21(10),Y21(10),V(134,133) 
DIMENSION  AM2 C 500 ) , AMU  500 ) , PGC 1 ( 500 ) , PGCO ( 500 ) , PGC( 2000 ) 

DIMENSION  IBKWPTC  5 ) , XBW( 5,10), YBW( 5,10), NUW( 5 ) , NUWl ( 5 ) , IBK( 5 ) 
CHARACTER*80  TITLE 
CHARACTER*9  OUTFIL(IO) 

DATA  OUTFIL/ 'OUT01.DAT' , '0UT02. DAT' , 'OUT03.DAT' , '0UT04.DAT' , 

&  'OUT05 . DAT' , '0UT06 . DAT' , 'OUT07 . DAT' , 'OUT08.DAT' , '0UT09. DAT' , 

&  'OUTIO.DAT'/ 

CALL  SUBROUTINE  TO  READ  NODE  LOCATIONS  (XI  &  YI),  DEPTHS  AND/OR  CURRENT 
AT  EACH  OF  THE  NODES  (DEP,U,V),  AND  THEN  GENERATE  BACKGROUND  DEPTHS 
IDIRC-  FLAG  FOR  DIRECTION  OF  INCIDENT  WAVES;  IDIRC-l  FOR  POSITIVE 
INCIDENT  ANGLE;  lDIRC—1  FOR  NEGATIVE  INCIDENT  ANGLE 
CALL  MAKEC(C,DEP,XI,YI) 

W-0.5 

GAMA-DSIG/DRHO**2 
INCR-DSIG/DRHO 
IFdOPTCO  .NE.  0)  INCR-1 
MM- 10 

DRHOl-DRHO/MM 
DSIGl-DSIG/MM 
PAI-3. 14159265 
OMEGA-2. *PAI/T 
MXl-MX-1 

COSINE-COS(ALPHA) 

SINE-SIN(ALPHA) 

ICOUNT-0 

*********************************************************************** 

AT  ONE  GRID  POINT  CALL  SUBROUTINE  USING  DEPTH  (D2),  FREQUENCY  (OMEGA), 
AND  GRAVITY  (G)  TO  SOLVE  DISPERSION  RELATION  AND  RETURN  WAVENUMBER 
(WK),  AND  GROUP  VELOCITY  (GC) 

*********************************************************************** 


D2-DC+TIDE 

CALL  WAVEN0(D2,WK,GC,PGCC,IDEPTH) 

CGDEEP-GC 

WKO-WK 

PGCDC-PGCC 

SEE  EQN.  16  IN  TSAY,TING-KUEI  AND  P.L-F  LIU,  "NUMERICAL  SOLUTION  OF 
WATER-WAVE  REFRACTION  AND  DIFFRACTION  PROBLEMS  IN  THE  PARABOLIC 
APPROXIMATION",  JOURNAL  OF  GEOPHYSICAL  RESEARCH,  87,  7932-7940,  1982. 

60  BETA-WK0*SIN(ALPHA) 

IDIRC-l 

IF(BETA  .LT.  0.)  IDIRC— 1 
DRH01-ID1RC*DRH01 

INITIALIZE  ARRAYS 

DO  69  1=1,2000 
PHASEL(I)-0. 

69  CONTINUE 
DO  70  1-1, N 
F0(l)-1.0 
X0LD(I)=X1(MX) 


Y0LD(I)-YI(1) 

AR0(I)-1. 

AS0(I)-0. 

IBROKN(I)=*0 
C  WKFS(I)-0. 

70  CONTINUE 
C 

C  XO  AND  YO  ARE  THE  LOCATION  OF  THE  REFERENCE  POINT  ON  REFERENCE  LINE 
C 

X- XO 
Y-YO 

XI - XO 
Yl-YO 
ISHORE-0 
NNN-1500 

C 

C  LOOP  TO  CONSTRUCT  REFERENCE  LINE  BY  ADDING  NODES  ON  EITHER  SIDE 
C  OF  THE  REFERENCE  POINT. 

C  NNN-THE  POSSIBLE  MAXIMUM  NUMBER  OF  NODES  ADDED  ON  THE  SEAWARD  AND 
C  LANDWARD  SIDES  OF  THE  REFERENCE  POINT  ALONG  THE  PHASE  LINE. 

C 

DPHASl-0. 

DPHAS2-0. 

DO  210  I-1,NNN 
IF(I  .EQ.  1)  GO  TO  160 
IF(I  .GT.M  .AND.  I  .GT.  N)  GO  TO  211 
C 

C  LOOP  150  divides  THE  CALCULATION  OF  THE  ADDITION  OF  A  POINT  TO  THE 
C  PHASE  LINE  INTO  MM  (-10)  INCREMENTS  TO  GAIN  ACCURACY.  A  CHECK  IS 
C  ALSO  DONE  ON  LAND-WARD  POINTS  TO  SEE  IF  IT  REACHED  THE  SHORE.  IF 
C  NOT  THEN  THE  REST  OF  LOOP  210  (OUTER  LOOP)  IS  EXECUTED. 

C 

DO  150  K-1,MM 
C 

C  NOTE:  MM-10  -  THE  NUMBER  OF  CALCULATION  STEPS  DONE  TO  COVER  ONE  GRID 
C  INCREMENT  (EX.  BREAK  EACH  GRID  INTO  TEN  SUB-PARTS  FOR  ACCURACY. 

C  XLB  -  FARTHEST  EXTENT  OF  NEAR  FIELD  IN  X-DIRECTION 
C 

IF(I  .GT.  M)  GO  TO  110 
IF(ISHORE  .NE.  0)  GO  TO  220 
D2-PCUBIC(X) 

IF(D2  .LE.  0.)  GO  TO  73 

CALL  WAVENO(D2,WK2,GC2,PCC2,IDEPTH) 

C 

C  CALL  SUBROUTINE  TO  CALCULATE  ANGLE  OF  INCIDENCE 
C 

100  CALL  CURVIL(BETA,WK2,THETA2,-DRH01,DX,DY,I0PTC0) 

IFdOPTCO  .NE.  1)  GO  TO  71 
DX— liSIGl*COSINE 
DY-DSIG1*SINE 

DPHAS 1 -DPHAS 1 +WK2* ( -COS ( THETA2 ) *DX+S IN ( THETA2 ) *DY) 

GO  TO  72 

71  IFdOPTCO  .NE.  2)  GO  TO  72 
DX— DSIGl 

DY-0. 

DPHAS 1 -DPHAS 1-WK2* COS ( THETA2 )*DX 
C 

C  INCREMENT  LOCATION  TO  FIND  NEXT  POINT  IN  LANDWARD  DIRECTION 
C 

72  X-X+DX 
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ono  oorsonon  ooo 


Y-Y+DY 


MAKE  SURE  THAT  POINT  HAS  NOT  REACHED  SHORE  LINE 

IF(D2  .GT.  0.)  GO  TO  110 

73  ISHORE-I 
IS-NNN-I+2 
M-1-1 
YYY-Y 

IFdOPTCO  .EQ.  0)YYY-Y+IDIRC*I»DRHO 
IFdBATCH  .NE.  2)  WRITE(6,90)  I,X,YYY,M 
90  FORMATCIX,'  REFERENCE  LINE  HAS  REACHED  SHORELINE  AT 

&  MARCHED  STEP  -',15,'  (X,Y)  -  ',2F10.2//'  NO.  OF  MARCHING 
&  STEF,  M  HAS  BEEN  CHANGED  TO  NEW  VALUE  -  ',IS///) 

110  IFCI  .GE.  N+1)  GO  TO  150 

XI  -  XO  INITIALLY  AND  IS  INCREMENTED  BY  DX  (DX  FROM  CURVIL). 

CHECK  IF  POINT  IS  IN  NEAR  FIELD 

220  D3-PCUBIC(X1) 

CALL  WAVENO(D3,WK3,GC3,PGC3,IDEPTH) 

CALL  SUBROUTINE  TO  GET  ANGLE  OF  INCIDENCE 

130  CALL  CURVIL(BETA,WK3,THETA3,DRH01,DX,DY,I0PTC0) 

IFdOPTCO  .NE.  1)  GO  TO  74 

DX-DRH01*SINE 

DY-DRH01*C0SINE 

DPHAS2-DPHAS2+WK3* ( -COS( THETA3 )>»DX+SIN( TUETA3 )*DY) 

GO  TO  75 

74  IFdOPTCO  .NE.  2)  GO  TO  75 
DX-0. 

DY-DRHOl 

DPHAS2-DPHAS2+ABS( BETA*DY) 

INCREMENT  LOCATION  TO  ADD  POINT  IN  SEAWARD  DIRECTION 

75  Xl-Xl+DX 
Yl-Yl+DY 

140  FORMATCIX, 8E15. 6) 

150  CONTINUE 

IFCI  .NE.  M)  GO  TO  240 
YYY-Y 

IFdOPTCO  .EQ.  0)YYY-Y+IDIRC*d-l)*DRH0 
IF(IBATCH  .EQ.  2)  GO  TO  240 
WRITE(6,230)X,YYY,M 

230  F0RMAT(2X,'(  ',F12.3,'  ,  ',F12.3,'  )','  IS  THE  CLOSEST  DISTANCE 
&  FROM  SHORE'/'  WHERE  CALCULATIONS  CAN  BE  DONE  FOR  M-  ',15/' 

&  WARING:  MAX.  M  IS  1500'//) 

CALL  ICHECK(M) 

WRITE(6,231)M,N 

231  FORMATC////'  CALCULATION  HAS  BEEN  CONTINUING  FOR  NEW  M  -  ' 

&  ,15,'  AND  N  -  ',15//) 

240  IFCI  .NE.  N)GO  TO  160 
IFdBATCH  .EQ.  2)  GO  TO  160 
WR1TE(6,241)X1,Y1,N 

241  F0RMAT(2X,'(  ',F12.3,'  ,  ',F12.3,'  )','  IS  THE  FARTHEST  DISTANCE 
&  FROM  SHORE'/'  WHERE  CALCULATIONS  CAN  BE  DONE  FOR  N-  ',15/' 

&  WARING:  MAX.  N  IS  500'//) 

CALL  ICHECK(N) 
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ooo  onn  noo  n  n  n  n  r>  ooooo  non  ono 


WRITE(6,2A2)M,N 

242  FORMAT(////'  CALCULATION  HAS  BEEN  CONTINUING  FOR  M  -  ',15, 

&  '  AND  NEW  N  -  ',15//) 

C 

C  NOTE:  II  VARIES  FROM  NNN  TO  I 

C  RECALL:  ARRAYS  XX(NN)  AND  YY(NN)  STORE  THE  LOCATIONS 
C  OF  THE  NODE  POINTS  ON  THE  REFERENCE  LINE. 

C 

160  IFdSHORE  .NE.  0  .OR.  I  .GT.  M)  GO  TO  189 
Il-NNN-I+1 
XX(II)-X 
YY(II)-Y 

CALCULATE  VALUES  OF  WAVE  PARAMETERS 
D2-PCUBIC(X) 

CALL  WAVENO( D2 , WK2 , GC2 , PGC2 , IDEPTH) 

CALL  SUBROUTINE  TO  RETURN  ANGLE  OF  INCIDENCE 

CALL  CURVIL( BETA , WK2 , THETA2 , -DRHOl , DX , DY , lOPTCO) 

STORE  VALUES  OF  PARAMETERS  JUST  CALCULATED  FOR  NODE  M+1. 

THESE  VALUES  ARE  FOR  LOCATION  XX(Il) ,YY(1I) 

RECALL:  DEPM-' DEPTH-MODIFIED'-  THE  BACKGROUND  TOPOGRAPHY 

PHASEL( II)-PHASEL( II )+DPHAS I 
WKN(H)-WK2 
THETA(1I)-THETA2 
CG(II)-GC2 
DEPM(II)-D2 
PGC<II)-PGC2 

AMPM( 1 1 ) -SQRT( CGDEEP/ GC2 ) *SQRT( ABS ( COS ( ALPHA) / COS ( THETA2 ) ) ) 

CHECK  IF  TOTAL  NUMBER  OF  DESIRED  POINTS  IS  EXCEEDED  THE  LIMIT 
RECALL:  IK  RANGES  FROM  NNN  TO  NNN+N-1 
STORE  SEAWARD  POINTS  IN  TOP  PART  OF  ARRAYS  XX, YY 

189  IF(I  .GT.  N)  GO  TO  210 
IK-NNN+I-l 
XX(IK)-X1 
YY(IK)-Y1 

CALCULATE  VALUES  OF  WAVE  PARAMETERS 
D3-PCUB1C(X1) 

CALL  WAVENO(D3,WK3,GC3,PGC3, IDEPTH) 

CALCULATE  NEW  ANGLE  OF  INCIDENCE. 

CALL  CURVIL< BETA, WK3 , THETA3 , DRHOl , DX, DY , lOPTCO) 

STORE  VALUES  OF  THE  WAVE  PARAMETERS  JUST  FOUND 

PHASEL( IK ) -PHASEL( IK ) +DPHAS  2 
WKM(IK)-WK3 
THETA(IK)-THETA3 
CG(IK)-GC3 
DEPM(IK)-D3 
PGC(IK)-PGC3 
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AMPM( IK) -SQRT ( CGDEEP/ GC3*ABS ( COS ( ALPHA) / C0S(THETA3  ) ) ) 

210  CONTINUE 
C 

C  RECALL:  IM-I-  INDEX  FROM  LOOP  210.  Il-NNN-I+1 
C  XX(II),YY(I1)  -  LOCATION  OF  FARTHEST  OUT  NODE  ON  REFERENCE  LINE 
C  IN  LANDWARD  DIRECTION. 

C 

211  IFdSHORE  .EQ.  0)  IS»NNN-M+1 
C 

C  PRINT  OUT  THE  PROFILE  OF  THE  BACKGROUND  TOPOGRAPHY  BENEATH  THE  NODES 
C  ON  THE  LANDWARD  EXTENSION  OF  THE  REFERENCE  LINE. 

C 

MII-NNN+N-1 

IFCIBATCH  .EQ.  2)  GO  TO  270 
IF(IDEPM.NE.l)  GO  TO  270 
WRITE(6,250) 

250  FORMAT('  THE  MODIFIED  WATER  DEPTH  AT  X,(  X  ,  DEPTH)') 

WRITE(6,*)  (XX(L),DEPM(L),L-IS,MII) 

270  XG(1)-XX(NNN) 

YG(l)-YY(NNN) 

IFdBATCH  .EQ.  2)  GO  TO  393 
IFCIPLINE.NE.l)  GO  TO  395 
WRITE(6,380) 

380  FORMAT('  THESE  ARE  POINTS  ON  THE  REFERENCE  LINE:  (X,Y)  ') 
WRITE(6,*)  (XX(L),YY(L),L=-IS,MII) 

C 

C  ALLOW  USER  TO  TRUNCATE  EXCESS  NODE  POINTS  OFF  THE  SEAWARD  END  OF  THE 
C  REFERENCE  LINE 
C 

395  WRITE(6,385)N 

385  FORMAK'  THE  NUMBER  OF  NODES  IS  ',15,'  ENTER  NEW  NUMBER') 

390  FORMATd6) 

CALL  ICHECK(N) 

IFCIBATCH  .NE.  2)  WRITE(6,392)N,M 

392  FORMATC'  N-  ',15,'  M-  ',15) 

393  C2=«d.-W)/W 
III-NNN 
Nl-N-1 

C 

C  ALLOW  USER  TO  VIEW  THE  ACTUAL  AND  BACKGROUND  TOPOGRAPHY  BENEATH  SOME 
C  PROFILE(S)  WITHIN  THE  DOMAIN. 

C 

IFCIBATCH  .EQ.  2)  GO  TO  401 
WRITEC6,410) 

410  FORMATC'  TO  VIEW  THE  TOPOGRAPHY  BENEATH  ANY  SECTIONS'/ 

*  '  ENTER  1,  ELSE  ENTER  0.'//'  CAUTION:  IF  YOUR 

*  FACILITY  IS  NOT  GRAPHICALLY  COMPATIBLE  TO  '/ 

*'  TEKTRONIX  MODEL  4014-1,  ENTER  O') 

READC5,*)  ISIDVW 
IFCISIDVW  .EQ.  0)  GO  TO  401 

CALL  S IDEVWC NUMSEC,X11,Y11,X21,Y21) 

401  CONTINUE 
C 

C  ALL  INPUT  INFORMATION  ALTERED  WILL  BE  STORED  IN  THE  OUTPUT  FILES 
C 

DO  415  JJJ«1,10 
IUN-JJJ+20 

IFCJJJ  .GT.  NUMSEC)  GO  TO  430 

OPENCUNIT-IUN, NAME-OUT  F I L  C  J  J J ) , STATUS- ' NEW') 

WR1TECIUN,431)TITLE,A0,T,DALPH,G,TIDE,X0,Y0,N,NN,M 
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WRITE( lUN , 4  32 ) DSIG , DRHO , lOPTCO , lOPTBU , lOPBD , I BACK.D , IREALD , IBREAK 
&  1CURRN,1FRCT,XDAMP,FRCT,1BKWTR 
IFdBKWTR  .EQ.  0)  GO  TO  437 
DO  436  IB-1, IBKWTR 

436  WRITE(IUN,435)IB,IBKWPT(IB),(XBW(1B,L),YBW(IB,L),L-1,IBKWPT(IB)) 

437  WRITE(IUN,433)  X11(JJJ),Y11(JJJ),X21(JJJ),Y21(JJJ) 

WRITE(IUN,434) 

415  CONTINUE 

431  FORMAT(//5X,A80///,5X,'  AMPLITUDE  -  ',F10.3,'  PERIOD  -  ',F10.3, 
&  //5X,'  ANGLE  -  ',F8.3,'  GRAVITY  -  ',F8.3,'  TIDE  -  ',F10.3// 

&  ,5X,'  REFERENCE  POINT  -  (  ',F12.3,'  ,  ',F12.3,'  )',//, 5X, 

&  '  N  -  ',15,'  NN  -  ',15.  '  M  -  ',15) 

432  F0RMAT(//5X,'  DSIG  -  ',F8.3,'  DRHO  -  ',F8.3,'  lOPTCO  -  ',13, 

&  '  lOPTBU  -  '.13,'  lOPTBD  -  ',I3,//5X,'  IBACKD  -  ',13,'  IREALD  - 
&  ,13,'  IBREAK  -  ',13,'  ICURRN  -  ',I3,//5X,'  IFRCT  -  ',13,'  XDAMP 
&  ',F10.3,'  FRCT  -  ',E12.4,'  IBKWTR  -  ',13) 

435  F0RMAT(//5X,'  BREAKWATER  NO.  -  ' ,13, 5X, 'POINTS  ON  THE  BREAKWATER 
,I4,//,6F12.4) 

433  F0RMAT(//5X,'  SECTION  FROM  (  ',F11.3,'  ,  ',F11.3,')  TO  (  ', 

&  F11.3,'  ,  ',F12.3,')') 

434  FORMAT(//,'  X  -  COORD,  Y  -  COORD. 

&  AMPLITUDE  DEPTH  PHASE  VALUE') 

430  DO  402  1=1, N 

AMI  ( I ) =AMPM( NNN+I-1 ) 

PGC0(1)-PGC(NNN+I-1) 

402  CONTINUE 

INITIALIZE  INDEX  FOR  BREAKWATER 

DO  403  1=1, IBKWTR 
NUW(I)»0 
NUWl(I)-0 
IBK(I)»0 
C50(I)=0. 

C60(I)=0. 

C70(I)-0. 

C80(I)=0. 

C90(I)-0. 

C100(I)-0. 

C110(I)=0. 

C120(I)-0. 

403  CONTINUE 
C 

C  NUW(I)  =  NUMBER  OF  POINTS  ON  THE  UPWAVE  SIDE  AT  PRESENT  COMPUTING 
C  AT  I-TH  BREAKWATER 

C  NUWl(I)  -  NUMBER  OF  POINTS  ON  THE  UPWAVE  SIDE  AT  PREVIOUS  COMPUTING 
C  AT  I-TH  BREAKWATER 

C  IDM  -  0  : BREAKWATER  HAS  NOT  BEEN  ENCOUNTERED 

C  IF  GREATER  THAN  0  :  (IDM)  BREAKWATERS  HAVE  BEEN  ENCOUNTERED 

C  IBK(I)  -  FLAG  FOR  I-TH  BRKWTR,  1:  ENCOUNTERED;  0:  NOT  YET 

C 

C  START  SECOND  MAJOR  LOOP  OF  PROGRAM  WHICH  MODELS  THE  MOVEMENT  OF  THE 
C  COMPUTATIONAL  LINE  TOWARD  SHORE.  RECALL:  M  IS  THE  NUMBER  OF  FORWARD 
C  STEPS  TO  COVER  THE  AREA  OF  INTEREST. 

C 

DO  750  I-1,M 
IDM-0 

IFdBATCH  .NE.  2)  WRITE(6,90l)  I 
901  FORMATC'  MARCHED  STEP-  ',15) 

IFd  .EQ.  1)  GO  TO  530 
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CALL  B DYGRD( XG , YG , THETA , MX , XI , C , XLB , 10 PTCO .COSINE, SINE) 

C  RECALL:  N  IS  THE  NUMBER  OF  NODES  IN  COMPUTATION  LINE  -  THE  DIMENSION 
C  OF  THE  MATRIX  USED  TO  SOLVE  FOR  THE  DIFFRACTION  FACTOR  (F) 

C 

III»III-INCR 

C 

C  STORE  VALUES  IN  'OLD'  ARRAY  BEFORE  CALCULATION  OF  VALUES  IN  NEXT  ROW. 
C 

DO  520  K-1,N 
FO(K)-FN(K) 

XOLO(X)-XNEW(K) 

YOLD(K)-YNEW(K) 

ASO(K)-ASN(K) 

ARO(K)-ARN(K) 

AM1(K)=*AM2(K) 

PGC0(K)-PGC1(K) 

520  CONTINUE 
C 

C  LOOP  START  HERE  FOR  I»1  (NO  OLD  VALUES  TO  STORE  ON  THE  FIRST  STEP). 

C 

530  DY=YY(III)-YG(1) 

DPHASE— DY*BETA 
IFdOPTCO  .NE.  0)  DPHASE-0. 

IF(I  .NE.  1)  GO  TO  560 
IX- 1 
1X1=2 
IY=2 
IYl-3 
C 

C  LOOP  TO  GENERATE  VALUES  FOR  A1(N),  A2(N),  A3(N),  B(N),  AND  AMPLT(N) 

C 

560  DO  630  J-1,N 
C 

C  IDN  =  FLAG  OF  ENCOUNTERING  OF  BREAKWATER  BETWEEN  ANY  TWO  POINTS 
C  ON  A  COMPUTATIONAL  LINE 

C  =  0  NO  PRESENCE  OF  BREAKWATER 

C  =  1  A  BREAKWATER  IS  ENCOUNTERED 

C 

IDN-0 

IJ=III+J-1 

C 

C  PREPARE  INFORMATION  FOR  EVERY  PONIT  ON  THE  COMPUTATIONAL  LINE 
C 

IFdOPTCO  .EQ.  1)  GO  TO  563 
IFdOPTCO  .EQ.  2)  GO  TO  561 
XG(J)-XXdJ) 

YG(J)-YYdJ)-DY 

GC2»CGdJ) 

WK2-WKNdJ) 

THE2-THETAdJ) 

PHASE(J)=PHASEL(IJ)+DPHASE 

PCCI(J)=PGCdJ) 

GO  TO  562 

561  XG(J)=XXdII) 

YG(J)-YYdII)+(J-l)*DRHO*lDIRC 

GCZ-CGdII) 

WK2-WKNdII) 

THE2-THETAdII) 

PHASE(J)-PHASELdII)+(J-l)*DRHO*BETA*IDlRC 

PGCl(J)-PGCdll) 
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GO  TO  562 

563  IF(I  .NE.  1)  GO  TO  564 
XG(J)-XX(IJ) 

YG(J)-YY(IJ) 

GC2«-CG(1J) 

WK2»*WKN(1J) 

THE2«THETA(IJ) 

PHASE(J)-PHASEL(IJ) 

PGCl(J)-PGC(IJ) 

GO  TO  562 

564  DX-XG(l)-XOLD(l) 

DY-YG( 1 )-YOLD( 1 ) 

XG(J)=«XOLD(J)+DX 
YG(J)=-YOLD(J)+DY 
DO  566  1JK-NNN-M+1,NNN+N-1 
IJKl-lJK+1 

IF(XX(IJK)  .LE.  XG(J)  .AND.  XX(lJKl)  .GE.  XG(J))  GO  TO  567 
GO  TO  566 

567  RAT10=(XX( IJKl )-XG( J) )/ (XX( IJKl )-XX( UK) ) 

YIEMP-YY( IJKl ) -RATIO*( YY( IJKl )-YY(IJK) ) 

GC2=CG( IJKl )-RATIO*( CG( IJKl )-CG( UK) ) 

WK2*WKN(  IJKl  )-RATIO*(WKN(  IJKl  )-WKN(UK)  ) 

THE2=THETA( IJKl )-RATIO*(THETA( IJKl )-THETA( UK) ) 

PHASE( J )«PHASEL( I JKl )-RATIO*( PHASEL( IJKl )-PHASEL( UK) ) 
a  +(YG(J)-YTEMP)*BETA 

PGC1(  J)-PGC(  UK)-RATIO*(  PGC(  IJKl  )-PGC(  UK)  ) 

GO  TO  562 
566  CONTINUE 

THIS  SEGMENT  IS  TO  DETERMINE  WHETHER  BREAKWATER  IS  PRESENT  IN  THE 
C  COMPUTATIONAL  LINE  OR  NOT.  IF  IT  IS  PRESENT,  DETERMINE  WHICH  POINT 
C  WILL  BE  USED  AS  SILID  BOUNDARY  AND  ASSIGN  VALUES  TO  THE  MATRIX  FOR 
C  3  DIFFERENT  DOMAIN  CONDITIONS, I. E.  EXPANDED,  SHRUNK,  OR  UNCHANGED. 

C 

562  IFCIBKWTR  .EQ.  0)  GO  TO  551 
IF(J  .EQ.  1)  GO  TO  551 
IFCIDM  .GE.  IBKWTR)  GO  TO  574 
DO  550  IK- 1, IBKWTR 
IFdBKdK)  .NE.  0)G0  TO  550 
IK1-IBKWPT(IK)-1 
DO  552  IB-1, IKl 
IBl-IB+1 

CALL  CROSS(XBW(  IK,  IB)  , YBWdK,  IB)  ,XBW( IK,  IBl )  , YBW( IK,  IBl )  , 

&  XG(J-1),YG(J-1),XG(J),YG(J),INTC0N,X1NT,Y1NT) 

IFdNTCON  .EQ.  1)  GO  TO  553 

552  CONTINUE 
550  CONTINUE 

574  IDN-0 

GO  TO  551 

553  IDM-IDM+1 
IBKCIK)-! 

IKK-IK 

THEB-ATAN2( ( YBW( IK, IB)-YBW( IK, IBl ) ) , (XBW( IK, IB)-XBW( IK, IBl ) ) ) 
TNB-TAN<THEB) 

TNT-TAN(THE2) 

IFdBATCH  .NE.  2)  WRITE(6 ,575)IK,THEB 

575  F0RMAT(20X, 'ENCOUNTERED  BRKWTR  NO.  ' ,I2,5X,'BRKWTR  ANGLE  ',F10.6) 
DL1-SQRT( (XINT-XG( J-1 ) )**2+(YINT-YG( J-1 ) )**2 ) 
DL2-SQRT((XINT-XG(J))**2+(YINT-YG(J))**2) 

IFdOPTCO.EQ.O)CB-(0. , 1 . )*BETA*(TNB/TNT+1 . )/(-TNT*TNB+l . )*IDIRC 
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IFdOPTCO.EQ. 1 )CB-(0. , 1 . )*WK2*SIN(THE2+THEB)/C0S(ALPHA+THEB)*IDIRC 

IF ( lOPTCO . EQ . 2 ) CB-( 0 . , 1 • ) *WK2*S IN( THE2+THEB ) / COS( THEB ) * IDIRC 
NUW(IK)-J-1 

DL»SQRT( (XG( J )-XG( J-1 ) )**2+(YG( J)-YG( J-1 ) )**2) 

DL1»DL1/DL*DRH0 

DL2»DL2/DL*DRHO 

CDl«2.*DLl+DRHO+CB*DLl*DRHO 

C5( lK)-(4 . *DLl-2 . *CB*DRHO**2 ) /GDI 

C6(IK)>(DRHO-2.*DL1+CB*DL1*DRHO)/CD1 

CD2-DRHO+2 . *DL2-CB*DRHO*DL2 

C7 ( lK)-( 4 . *DL2+2 . *DRUO**2*CB ) /CD2 

C8(IK)-(DRHO-2.*DL2-CB*DRHO*DL2)/CD2 

CD3-DRHO+DLl+CB*DRHO*DLl 

C9 ( lK)-( 2 . *DLl-4 . *CB*DRHO**2 ) /CD3 

C10(IK)-(DRHO-DL1+CB*DRHO*DL1)/CD3 

CD4«DRHO+DL2-DRHO*DL2*CB 

C I 1 ( IK)-( 2 . *DL2+4 . *CB*DRHO**2 ) /CD4 

C 1 2 ( IK) - ( DRHO-DL2-DRHO*DL2*CB ) / CD4 

IDN»1 

551  XNEW(J)-XG(J) 

YNEW(J)-YG(J) 

AMPLT(J)=SQRT(CGDEEP/GC2*ABS(COS(ALPHA)/COS(THE2))) 

AM2(J)-AMPLT(J) 

IF(J  .EQ.  1)  THE1»THE2 
C 

C  IF  PHASE  LINE  IS  OUTSIDE  OF  NEAR  FIELD  SET  VV-0 
C 

IF(XG(J).LE.XUB  .OR.  XG(J).GE.XLB  .OR.  YG(J).LE.YLB 
&  .OR.  YG(J).GE.YRB)  GO  TO  570 
C 

C  INTERPOLATE  DEPTH  FROM  FOUR  SURROUNDING  POINTS  AND  THEN  GET 
C  WAVE  DATA  (ACTUAL  TOPOGRAPHY) 

C 

CALL  DEPINPdX.IXl ,  lY,  dl  ,XG(J)  ,YG(J)  ,D2,UX,VY,DIVU) 

CALL  WAVENO( D2 , WKT , GCT , PGCT , IDEPTH) 

PGC1(J)=>PGCT 

IFdDEPTH.NE.-l)  GO  TO  576 

IFCIBATCH  .NE.  2)  WRITE( 6 ,565 )XG( J) ,YG( J) 

565  FORMAT('  REACHED  DRY  LAND  AT  (  ',F12.3,'  ,  ',F12.3,'  )') 

GO  TO  760 
570  WKT-WK2 

D2»DEPMdJ) 

UX»0. 

VY-0. 

DIVU-0. 

C 

C  VO  »  K  SQUARED  -  K  HAT  SQUARED;  NOTE;  WK2  IS  BACKGROUND  WAVE  NUMBER, 

C  WKT  IS  ACTUAL  WAVENUMBER,  THEREFORE  BELOW  IS  *V0. 

C  VI  »  TERMS  OF  EFFECTS  OF  CURRENT  ON  WAVES 

C  V2  »  TERM  OF  ENERGY  DISSIPATION  DUE  TO  BREAKING 

C  V3  »  TERM  OF  ENERGY  DISSIPATION  DUE  TO  BOTTOM  FRICTION 

C  US  «  TERM  OF  CURRENT  EFFECTS  ON  WAVE  NO.  IN  MARCHING  DIRECTION 

C  UN  »  TERM  OF  CURRENT  EFFECTS  ON  WAVE  NO.  IN  TRANSVERSE  DIRECTION 

C  DIVU  -  DIVERGENCE  OF  CURRENT  VELOCITY 

C  WK2U+WK2V  -INNER  PRODUCT  OF  WK  HAT  AND  CURRENT 

C 

576  US-0. 

UN-0. 

Vl-0. 

IFCICURRN  .EQ.  0)  GO  TO  577 


129 


IFdOPTCO  .EQ.  0)  THEU-THE2 
IFCIOPTCO  .EQ.  1)  THEU-ALPHA 
IFdOPTCO  .EQ.  2)  THEU-0. 

COSTHE»COS(THEU) 

SINTHE-SINdHEU) 

OMEGD2»OMEGA/G/D2 

US— (UX*COSTHE-VY*SINTHE)*OMEGD2 

UN=«IDIRC*(UX*SINTHE+VY*COSTHE)*OMEGD2 

COSTH2«COS(THE2) 

SINTH2=SIN(THE2) 

WK2U— UX*COSTH2*WK2 
WK2V-VY*S1NTH2*WK2 

V 1 -( ( 0 . , 1 . 0 ) *DI VU-2 . * ( WK2U+WK2V ) ) *OMEGD2 
AMPLT(J)«»AMPLT(J)*d.-(WK2U+WK2V)/OMEGA) 

577  V2-0. 

IFCIBREAK  .EQ.  0)  GO  TO  578 
ADRAT=CABS(F0(J))*AMPLT(J)*A0/D2 
IFCADRAT  .LT.  0.2)  GO  TO  578 

IF(ADRAT  .LE.  0.4  .OR.  IBROKN(J)  .EQ.  0)G0  TO  578 
V2-(0.0,1.0)*0.15*WK2/D2*d.-0.16/4./ADRAT) 

578  V3-0. 

IFdFRCT  .EQ.  0)  GO  TO  580 
IF(XG(J)  .GT.  XDAMP)  GO  TO  580 
WKTH-WKT*D2 

V3-16./3./PAI*FRCT*WKT**3/(2.*WKTH+SINH(2.*WKTH))/SINH(WKTH) 

&  *CABS(FO(J))*AMPLT(J)*A0*(0. 0,1.0) 

580  V0=WKT**2-WK2**2 
VV»V0+V1+V2+V3 

AAl-4./(AM2(J)+AMl(J))*(AM2(J)-AMl(J))/DSlG 

AA2=2./(PGC1(J)+PGC0(J))*(PGC1(J)-PGC0{J))/DSIG 

IF(J  .EQ,  1  .OR.  J  .EQ.  N)  GO  TO  571 

IFCIDN  .NE.  0)  GO  TO  571 

BBl-(AMl(J+l)-AMl(J-l))/AMl(J)/2. 

BB2-(PGC0(J+l)-PGC0(J-l))/PGC0(J)/4. 

GO  TO  573 
571  BBl-0. 

BB2=0. 

573  IFCIOPTCO  .NE.  0)  GO  TO  581 
C0ST=C0S(THE2) 

SINT-SIN(THE2) 

DTHE-( THE2-THE 1 ) / SIN( THE 1+THE2 )+BB l+BB2+( 0 . , 1 . ) *UN*C0ST*DRH0 

C4-((0.0,2.0)*(ABS(BETA)+US*SINT)+AA1+AA2)/GAMA/W/TANCTHE2)**'2 

Cl-2.-C4-VV*DSlG/GAMA*C0ST**2 

C3-2.*C2+C4-VV*DSIG/GAMA*C2*C0ST**2 

GO  TO  586 

581  IFCIOPTCO  .NE.  1)  GO  TO  582 
THE2-ALPHA-THE2 

DTHE-C  0 . 0 , 1 . 0  )*  C  VfK2*S  INC  THE2  )+UN  )*DRHO+BB  1 +BB2 

C4-CC0.0,2.0)*CWK2*COSCTH£2)+US)+AAl+AA2)/GAMA/W 

Cl-2.-C4-VV*DSIG/GAMA 

C3-2.*C2+C4-VV’*DSIG/GAMA*C2 

GO  TO  586 

582  UTHE-C0.0,1.0)*CWK2*SINCTHE2)*IDIRC+UN)*DRHO+BB2 
C4 - C C 0 . 0 , 2 . 0 ) * C WK2 * CO S C THE 2 ) +US ) + AA 1+ AA2 ) / GAMA/ W 
C 1 -2 . -C4-VV*DS IG/ GAMA 
C3-2.*C2+C4-VV*DSIG/GAMA*C2 

C 

C  CHECK  FOR  FIRST  ROW  OF  MATRIX 
C 

586  IFCJ  .EQ.  1)  GO  TO  590 
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C 

C  CHECK  FOR  LAST  ROW  OF  MATRIX 
C 

1F(J  .EQ.  N)  GO  TO  600 
IF(IDN  .NE.  0)  GO  TO  602 
C 

C  FORM  MIDDLE  ROWS  OF  MATRIX 
C 

A1(J)— l.+DTHE 
A2(J)-C1 
A3(J)— l.-DTHE 

B(J)-C2*(l.+DTHE)*FO(J+l)-C3*FO(J)+C2*(l.-DTHE)*FO(J-l) 

A  SPECIAL  CASE  WHEN  BREAKWATER  IS  ENCOUNTERED 

IF(NUW(IKK).LT.NUWl(IKK).AND.J.EQ.(NUW(IKK)+2))  B(J)- 

&  (C2*(1.-DTHE)*C70(IKK)-C3)*F0(J)+(C2*(1.-DTHE)*C80(1KK)+ 

&  C2*( l.+DTHE) )*F0(J+1) 

GO  TO  620 

FIRST  ROW  OF  MATRIX 

590  IFdOPTBU  .EQ.  0)  GO  TO  591 
A1(J)=»0. 

A2(J)=C1 
A3(J)=-2. 

B( J)-2.*C2*FO(J+l )-C3*FO( J) 

GO  TO  620 

591  Al(J)-0. 

A2(J)-C1 
A3(J)»-1.-DTH£ 

B( J)-C2*( 1 .+DTHE)*F0( J+1 )-C3*FO(J)+(C2+l. )*( 1 .-DTHE) 

GO  TO  620 

LAST  ROW  OF  MATRIX 

600  IFdOPTBD  .EQ.  0)  GO  TO  601 
Al(J)=-2. 

A2(J)-C1 
A3(J)-0. 

B(J)-2.*C2*FO(J-l)-C3*FO(J) 

GO  TO  620 

601  A1(J)  — l.+DTHE 
A2(J)-C1 
A3(J)=0. 

3( J)-C2*( 1 .-DTHE)*FO( J-1 )-C3*FO( J)+(C2+1 . )*d .+DTHE) 

GO  TO  620 
C 

C  THIS  SEGMENT  IS  FOR  A  SOLID  BOUNDARY  WHEN  BREAKWATER  IS  ENCOUNTERED 
C 

602  DTHE-DTHE-BB1-BB2 
A1(J-1)=.-1+DTHE+(-1  .-[)THE)*C6dK) 

A2(J-l)-Cl  +  (-l.-DTHE)*C5dK) 

A3(J-1)*0. 

Al(J)-0. 

A2(J)-(-l.+DTHE)'»C7(IK)+Cl 

A3(J  )-(-!. +DTHE)*CbdK)+(-l. -DTHE) 

IF(NUWdK).NE.  0  .AND.  NUWKIK)  .NE.  0)G0  TO  603 

B( J-1  )-C2+d. -DTHE )*FO(J-2)-C3*FO(J-l)+C2*(  l.+DTHE )*FO(J) 

B(J)-C2*( 1 .-DTUE)*FO(J-l )-C3*FO( J)+C2*( 1 .+DTHE)*F0( J+1 ) 
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GO  TO  620 

603  B(J-l)*CC2*(l.-DTHE)+C2*(U+DTHE)*C60(IK))*F0(J-2)+(-C3+ 

&  C2*(i.+DTHE)*C50(IK))*F0(J-i) 

B(J)=«(C2*(1.-DTHE)*C70(IK)-C3)*F0(J)+(C2*(1.-DTHE)*C8CCIK)+ 

&  C2*(1.+DTHE))*F0(J+1) 

IF(NUW(IK)  .EQ.  NUWl(IK))  GO  TO  620 

B( J-1 )-C2*( 1 .-DTHE)*F0( J-2)-C3*FO( J-1 )+C2*( 1 .+DTH£)*F0( J ) 

C  B( J)-(C2*( 1 .-DTHE)*C1 10( IK)-C3*C70( IK)+C2*( 1 .+DTHE) )*F0( J+1 )- 

C  &  C3*C80(IK)*F0(J+2)+(C2*(l.-DTHE)+C120{IK))*F0(J+3) 

B(J)-((2.*C2*{1.-DTHE)-C3)*C70(IK)+2.*C2*DTHE)*F0(J+1)+ 

&  C80(IK)*(2.*C2*(l.-DTHE)-C3)*F0(J+2) 

IF(NUW(IK)  .LT.  NUWl(IK))  GO  TO  620 

B(J-2)=>(C2*(l.-DTHE)+C60(IK)*C2*(l.+DTHE))*F0(J-3)+(-C3+C2* 

&  (l.+DTHE)*C50(IK))*F0(J-2) 

C  B( J-1 )-(C2*( 1 .-DTHE)-C3*C50( rK)-K:2*( 1 .+DTHE)*C90( IK) )*F0( J-2 )- 

C  &  C3*C60(lK)*FO(J-3)+(C2*(l.+DTH£)*C100(IK))*FO(J-4) 

B(J-l)-(-2.*C2*DTHE+(-C3+2.*C2*(l.+DTHE))*C50(IK))*F0(J-2)+ 

&  (-C3+2.*C2*(l.+DTHE))*C60(IK)*F0(J-3) 

B( J )=C2*(1 .-DTHE)*F0( J-1 )-C3*F0( J)+C2*( 1 .+DTHE)*F0( J+1 ) 

620  THE1-THE2 

STORE  DEPTH  DATA  FOR  LATER  USE  WITH  WAVE  BREAKING  CRITERIA 

DN0DE(J)-D2 
630  CONTINUE 

NOTE;  ALL  THE  TERMS  ON  THE  RIGHT  HAND  SIDE  OF  EQN.  5.2.16  HAVE  BEEN 
INCORPORATED  INTO  'B'  BEFORE  IT  IS  SENT  TO  SUBROUTINE  SOLVE 
ALSO;  ARRAY  FN  CONTAINS  THE  VALUES  OF  THE  DIFFRACTION  FACTOR  AT 
EACH  NODE  IN  THE  NEXT  ROW  WHEN  IT  IS  RETURNED  FROM  SOLVE. 

CALL  S0LVE(N,A1,A2,A3,B,FN) 

657  FORMATC'  I-  ',14,'  Re(F(I))=-  ',E12.6,'  Im(F(I))«  ', 

*  E12.6) 

AMPRD  =  AMPLITUDE  CALCULATED 

DO  700  K=1,N 
AMPRD(K)-AMPLT(K)*FN(K) 

SEE  EQN  14  FROM  JGR  ARTICLE  CALCULATE  CORRECTION  DUE  TO  DIFFRACTION 

ASN(K)-ATAN2(  AIMAG( AMPRD(K) ) ,REAL( AMPRD(K) ) ) 

ADD  S  hat  TO  PHASE  OF  FN  (CORRECTION)  TO  FIND  S  actual 

ASN(K)-ASN(K)+PHASE(K) 

ARN(K)-CABS(AMPRD(K)) 

CHECK  FOR  WAVE  BREAKING 
C 

IF(IBREAK.EQ.O)  GO  TO  700 
IF((ARN(K)*A0/DNODE(K)).LE.0.4)  GO  TO  700 
IBROKN(K)-l 
700  CONTINUE 

C 

C  THE  RESULTS  WILL  BE  INTERPOLATED  EVERY  (IP)  STEPS.  EX.  IF  lP-5  THEN 
C  INTRSC  IS  CALLED  AFTER  CALCULATIONS  ARE  DONE  FOR  1=1,6,11,  ETC. 

C  OUTPUT  THE  PHASE  LINE  WHICH  HAS  BEEN  CONSTRUCTED 
C 
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INT-(I-1)-((I-1)/IP)*IP 
IF(INT  .NE.  0)  GO  TO  702 
DO  7A9  JJJ-1,NUMSEC 

CALL  INTRSC ( N , XUB , XNEW , YNEW , XOLD , YOLD ,X11(JJJ),Y11(JJJ), 

*  X21(JJJ),Y21(JJJ),ARN,ARO,ASN,ASO,lUNIT(JJJ),NUW,NUWl,IBKWTR, 

*  lOPTCO) 

749  CONTINUE 

702  1F(IBXWTR  .EQ.  0)GO  TO  692 
DO  691  K-1,IBKWTR 
NUW1(K)-NUW(K) 

IBK(K)»0 

C50(K)-C5(K) 

C60(K)-C6(K) 

C70(K)=*C7(K) 

C80(K)-C8(K) 

C90(K)-C9(K) 

C100(K)-C10(K) 

C110(K)-C11(K) 

C120(K)-C12(K) 

691  CONTINUE 

692  ICOUNT  =  ICOUNT  +  1 

750  CONTINUE 

760  IFdBATCH  .NE.  2)  WRITE(6,770)  ICOUNT 
770  FORMAT('  ICOUNT  -  ',16) 

C 

C  DUMP  VALUES  TO  INDICATES  THE  END  OF  COMPUTATIONS 
C 

775  DUMl»-99.0 
DUM2— 99. 

DUM3— 99.0 

DO  790  I-1,NUMSEC 

IUNITl-I+20 

WRITE( lUNITl , 780 )DUM1 , DUM2 , DUM3 
790  CONTINUE 
780  FORMAT(3F16.5) 

RETURN 

END 
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SUBROUTINE  INTRSC( N , XBASE , XN , YN , XOLD , YOLD , XI , Y 1 , X2 , Y2 , AMPLT , AMPOLD 
&  , PHASE , PHOLD, lUNIT , NW , NW 1 , IBKWTR, lOPTCO) 

SUBROUTINE  TO  FIND  INTERPOLATED  VALUES  FOR  PHASE  AND  AMPLITUDE  ALONG 
SPECIFIED  CROSS-SECTIONS.  THE  INTERPOLATION  IS  LINEAR  BETWEEN  THE 
UNEVENLY  SPACED  POINTS  AT  WHICH  THE  PROGRAM  SOLVES  FOR  THE  UNKNOWNS. 

IN  EACH  CALL  TO  THIS  SUBROUTINE  THE  ENTIRE  PHASELINE  IS  CHECKED 
AGAINST  ONE  PROFILE. 

DEFINITION  OF  VARIABLES: 

N-  NUMBER  OF  NODES  PRESENTLY  ON  PHASE  LINE 
XBASE*  X-COORDINATE  OF  BASE  LINE  (XUB) 

XN.YN-  ARRAYS  WHICH  STORE  THE  X  AND  Y  LOCATIONS  OF  THE  NODES  ON  THE 
PRESENT  PHASELINE 

XA.YA.XB.YB-  THE  TWO  NODES  ON  THE  COMPUTATIONAL  LINE  WHICH  ARE  BEING 
CHECKED  AT  ANY  GIVEN  MARCHED  STEP. 

XOLD, YOLD-  ARRAYS  WHICH  STORE  THE  X  AND  Y  LOCATIONS  OF  THE  NODES  ON 
THE  COMPUTATIONAL  LINE  AT  PREVIOUS  STEP. 

Xl.Yl-  STORE  LOCATION  OF  THE  FIRST  POINT  WHICH  DEFINES  THE  PROFILE. 

C  X2,Y2=  STORE  LOCATION  OF  THE  SECOND  ENDPOINT  OF  THE  PROFILE. 

C  AMPLT-  AMPLITUDES  AT  THE  NODES  OF  THE  PRESENT  COMPUTATIONAL  LINE. 

C  AMPOLD-  AMPLITUDES  AT  THE  NODES  OF  THE  COMPUTATIONAL  LINE  AT  THE 
C  PREVIOUS  STEP. 

C  PHASE-  VALUES  OF  THE  PHASE  ANGLE  AT  THE  NODES  OF  PRESENT  LINE 

C  PHOLD-  VALUES  OF  THE  PHASE  ANGLE  AT  THE  NODES  AT  PREVIOUS  STEP. 

C  lUNIT-  NUMBER  OF  THE  LOGICAL  UNIT  TO  WRITE  THE  RESULTS  TO 

C  NW-  CURRENT  NO.  OF  POINTS  AT  UPWAVE  SIDE  OF  BREAKWATER 
C  NWl-  PREVIOUS  NO.  OF  POINTS  AT  UPWAVE  SIDE  OF  BREAKWATER 
C 

DIMENSION  XN(N) ,YN(N) ,AMPLT(N) ,XOLD(N) ,Y0LD(N) ,AMPOLD(N) 

DIMENSION  PHASE(N),PH0LD(N),NW(5),NW1(5) 

1=1 

10  Il-l+l 

1F( IBKWTR  .EQ.  0)  GO  TO  11 

IF(I  .EQ.  NW(1)  .OR.  I  .EQ.  NW(2)  .OR.  I  .EQ.  NW(3)  .OR. 

*  1  .EQ.  NW(A)  .OR.  I  .EQ.  NW(5))  GO  TO  15 

11  CALL  CR0SS(X1,Y1,X2,Y2,XN(I),YN(I),XN(I1),YN(I1),IC0N,XINT,YINT) 
IF(ICON.EQ.l)  GO  TO  40 

15  I-I+l 

IF(I.GE.N)  GO  TO  50 
GO  TO  10 

40  D-((XN(I1)-XN(I))**2+(YN(I1)-YN(I))**2)**0.5 
Dl-( (XN(I1 )-XINT)**2+(YN( I1)-YINT)**2)**0.5 
R-Dl/D 

A-R* AMPLT ( I ) + ( 1 . 0-R ) * AMPLT( I 1 ) 

S-R*PHASE( I)+( 1 .0-R)*PHASE( II ) 

CALL  CRSOUT(XINT,YINT,A,S,IUNIT) 

IFdOPTCO  .NE.  2)GO  TO  50 
RETURN 
50  II-I 
IDD-0 
ID-1 
I-Il 

IF(I  .GE.  N)  I-l 
IF(XOLD(I).LE.  XBASE)RETURN 
60  1F( IBKWTR  .EQ.  0)  GO  TO  61 
DO  62  IK- 1, IBKWTR 

1F((NW(IK)  .EQ.  I  .and.  NW(IK)  .GT.  NWl(IK))  .OR. 

4  ((NW(IK)+1)  .EQ.  I  .AND.  NW(IK)  . LT.  NWl(IK)))  GO  TO  81 


134 


on  o  n  o 


62  CONTINUE 

61  CALL  CROSS(Xl,Yl,X2,Y2,XN(I),YN(I),XOLD(I),YOLD(l),ICON,XINT,YINT) 
IF(ICON.NE.l)  GO  TO  81 

D-((XN(I)-XOLD(I))**2+(YN(I)-YOLD(I))**2)**0.5 
D1-((XN(I)-XINT)**2+(YN(I)-YINT)**2)**0.5 
R-Dl/D 

A-R*AMPOLD( I)+( 1 .0-R)*AMPLT( I) 

S»R*PHOLD{ I )+( 1 . 0-R) *PHASE( I ) 

CALL  CRSOUT{XINT,YINT,A,S,IUNIT) 
lDO-1 

81  IF(ID  .EQ.  -1)  GO  TO  120 
70  I-I+l 
ID-1 

IF(I.GT.N)  GO  TO  110 
GO  TO  60 

no  IF(IDD  .EQ.  DRETURN 
I-II 

120  1*1-1 
ID— 1 

IF(I  .LE.  0)RETURN 
GO  TO  60 
END 

SUBROUTINE  TO  OUTPUT  CROSSING  DATA 

SUBROUTINE  CRSOUT(X,Y,A,S,IUNIT) 

COMMON/ AD/ S 1 , S2 , lOPTBU , lOPTBD , IBATCH 
CALL  DEPINP(IX,IX1,IY,IY1,X,Y,DR,UX,VY,DIVU) 

IF(IUNIT.NE.21)  GO  TO  20 
IF( IBATCH  .NE.  2)  WRITE(6 , 10)X,Y,A,DR,S 
10  FORMATdX.'XP-  '  ,F9.3,1X,'YP-  ',F9.3, 

&  '  AMPLITUDE-  ',F7.3,'  DEPTH-  ',F8.3,'  PHASE-  ',F8.3) 

20  WRITE (lUN IT, 21)  X,Y,A,DR,S 

21  F0RMAT(5F16.4) 

RETURN 
END 

SUBROUTINE  FOR  PROFILE  INTERSECTION  WITH  LINE  SEGMENT. 

C 

SUBROUTINE  CR0SS(PX1 , PYl , PX2 ,PY2 ,X1 , Y1 ,X2, Y2 , INTCON ,XINT, YINT) 

C 

C  DEFINITION  OF  VARIABLES; 

C  INPUT:  (PX1,PY1)=FIRST  END-POINT  DEFINING  PROFILE 
C  (PX2,PY2) -SECOND  END-POINT  DEFINING  PROFILE 

C  (XI, YD-  FIRST  ENDPOINT  DEFINING  SEGMENT 

C  (X2,Y2)-  SECOND  ENDPOINT  DEFINING  SEGMENT 

C  OUTPUT:  1NTCON-" INTERSECTION  CONDITION”  :  =0  FOR  NO  CROSSING  WITHIN 
C  SEGMENT;  =1  FOR  CROSSING  AT  ONE  POINT  ON  SEGMENT;  -2  FOR 

C  PARALLEL  LINES,  ie.  CROSSING  ON  WHOLE  LENGTH  OF  SEGMENT. 

C  XINT,YINT-INTERSECTION  OF  THESE  TWO  LINES 

C 

PXMAX-PXl 

PXMIN-PX2 

PYMAX-PYl 

PYMIN-PY2 

IF(PX1.GE.PX2)  GO  TO  30 

PXMAX-PX2 

PXMIN-PXl 

30  IF(PY1.GE.PY2)  GO  TO  40 
PYMAX-PY2 
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C 

C  FIND  IMPLICIT  EQN.  OF  LINE  DEFINED  BY  THE  PROFILE.  PClx+PC2y+PC3-0 
C 

40  PC1-PY2-PYI 
PC2-PX1-PX2 
PC3-PX2*PY1-PX1*PY2 
C 

C  FIND  IMPLICIT  EQN.  FOR  SEGMENT 
C 

C1-Y2-Y1 

C2-X1-X2 

C3-X2*Y1-X1*Y2 

A1«PC1*X1+PC2*Y1+PC3 

A2-PCl*X2+PC2*Y2+PC3 

IF(A1  .EQ.  0.  .AND.  A2  .EQ.  0.)  GO  TO  100 
IF((A1*A2)  .GT.  0.)  GO  TO  50 
B1-C1*PXI+C2*PY1+C3 
B2=*C1*PX2+C2*PY2+C3 
1F((B1*B2)  .GT.  0.)  GO  TO  50 
DEN0M-PC1*C2-C1*PC2 
XINT*( PC2*C3-C2*PC3 ) / DENOM 
YINT*(PC3*C1-C3*PC1 )/DENOM 
INTCON-1 
RETURN 
C 

C  INTERSECTION  IS  NOT  WITHIN  BOUNDS  OF  EITHER  SEGMENT  OR  PROFILE. 

C 

50  INTCON-0 
RETURN 
C 

C  IF  LINES  OVERLAP,  CHECK  IF  THEY  OVERLAP  ONLY  PARTIALLY. 

C 

100  XINT-Xl 
YINT-Yl 

IFCXl.LT.PXMIN  .OR.  Xl.GT.PXMAX)  GO  TO  70 
IF(Y1.LT.PYMIN  .OR.  Yl.GT.PYMAX)  GO  TO  70 
INTCON-1 
RETURN 
C 

C  (X1,Y1)  IS  NOT  ON  PROFILE 
C 

70  IF(X2.LT.PXMIN  .OR.  X2.GT.PXMAX)  GO  TO  80 
IF(Y2.LT.PYMIN  .OR.  Y2.GT.PYMAX)  GO  TO  80 
XINT-X2 
YINT-Y2 
INTCON-1 
RETURN 
C 

C  (X2,Y2)  IS  NOT  ON  PROFILE 
C 

80  INTCON-2 
RETURN 
END 
C 
C 

SUBROUTINE  CURVIL( BETA , WK , THE , DG , DX , DY , lOPTCO ) 

I-l 

DX-0. 

DY-0. 
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EPSlLN-0.05 

IF(BETA  .LT.  0)  I— 1 

THE-I*ASIN(ABS(BETA)/WK) 

IFdOPTCO  .NE.  0)  RETURN 

if{abs(the).lt.epsiln)  go  to  10 

TANG-TAN(THE) 

CTANG-l./TANG 

DX-DG/(TANG+CTANG) 

DY-CTANG*DX 

RETURN 

10  DX-DG*SIN(THE) 

DY»DG*COS(THE) 

RETURN 

END 

C 

C 

C  SOLVE  THE  DISPERSION  RELATION  THROUGH  AN  ITERATIVE  METHOD. 
C  INPUT:  OMEGA-  WAVE  FREQUENCY;  G-  GRAVITY;  D-  DEPTH 
C  RETURNED:  WK-  WAVE  NUMBER;  GC-  GROUP  VELOCITY;  PGC-PC*GC 
C  (PC-  PHASE  VELOCITY) 

SUBROUTINE  WAVENOC  D , WK , GC , PGC , IDEPTH ) 

COMMON/ AB/ N , MM , BETA , OMEGA , G , DSIG , DRHO , WKO 
C 

C  SET  INITIAL  ESTIMATE  OF  WAVENUMBER 
C 

IDEPTH  -  1 

IF(D.LE.lE-ll)  GO  TO  30 

WKD-SQRT(OMEGA**2/G*D)/D 

ITER-1 

10  WKH-WKD*D 

5 1- OMEGA**2-G*WKD*TANH( WKH) 

52—  G*(TANH(WKH)+WKH/COSH(WKH)**2) 

C 

C  ESTIMATE  RELATIVE  ERROR 
C 

ER-S1/S2 

WKD-WKD-ER 

ITER-ITER+1 

C 

C  CHECK  IF  TOO  MANY  ITERATIONS 
C 

IF(ITER  .GE.  30)  GO  TO  20 
C 

C  CHECK  IF  ERROR  CRITERION  IS  SATISFIED 
C 

IF(ABS(ER)/WKD  .GE.l.E-6)  GO  TO  10 

WK-WKD 

PC-OMEGA/WK 

GC-PC*0 . 5* ( 1 . +2 . * WK*D/ S INH ( 2 . * WK*D ) ) 

PGC-PC*GC 

RETURN 

C 

C  USE  SHALLOW  WATER  APPROXIMATION  IF  TOO  MANY  ITERATIONS 
C 

20  GC-SQRT(G*D) 

WK-OMEGA/GC 

PGC-GC*GC 

RETURN 

30  IDEPTH-  -1 
RETURN 
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END 


C 

C  TRIDIAGONAL  MATRIX  EQUATION  SOLVER 
C  [{Al}  {A2}  {A3}]  (FN}  -  (B} 

C  INPUT:  N-  DIMENSION  OF  THE  MATRIX 
C  -  NUMBER  OF  NODES  IN  THE  ROW  TO  BE  SOLVED 

C  A1,A2,A3  AND  B 

C  RETURNED:  FN  -  DIFFRACTION  FACTOR  AT  EACH  NODE 
C 

SUBROUT INE  SOLVE ( N , A 1 , A2 , A3 , B , FN ) 

COMPLEX  B(N),FN(N),A1(N),A2(N),A3(N) 

Q********************************************* A****** *********** A****** 

C  GAUSSIAN  ELIMINATION  WITHOUT  PIVOTING 

C********************************************************************** 

DO  10  1-2, N 
Il-I-l 

B(I)-B(I)-A1(I)*B(I1)/A2(I1) 

A2(I)-A2(I)-AI(I)*A3(I1)/A2(I1) 

A3(I)-A3(I) 

Al(I)-0. 

10  CONTINUE 
Nl-N-1 

(]*******4r*****1kA**AAA***A4t4t*Alk**AA4rA*iiltAik*ik**ik*AAik**ikskAik**lk*)kA****ik***** 

C  BACK  SUBSTITUTION 

(}****}f^********ik4r***********4ri^*******)lr*********A)^******A*]lr******A*****A* 

FN(N)-B(N)/A2(N) 

DO  20  1-2, N 
J-N+l-I 

FN(J)-(B(J)-A3(J)*FN(J+1))/A2(J) 

20  CONTINUE 
RETURN 
END 
C 
C 

C  SUBROUTINE  CUSPIP  (  CUbic  SPIine  Interpolation  ) 

C  INPUT:  MX,NY,X(just  passed  through), Y,D,S1,S2, DBASE 
C  RETURNED:  C 

C  NOTE:  THE  ARRAY  C  CONTAINS  THE  COEFFICIENTS  OF  THE  CUBIC  EQUATION 
C  USED  IN  A  CUBIC  SPLINE  INTERPOLATION  ALONG  EACH  LINEOF  NODES 

C 

SUBROUTINE  CUSPIP(MX,NY,X,Y,D,C,S1 ,S2,DBASE,DC,TIDE) 

DIMENSION  X(MX) ,Y(NY) ,D( 134, 133) ,C(4, 134) 

MXl-MX-1 

NYl-NY-1 

C(1,1)-DBASE+TIDE 

C 

C  LOOP  TO  VARY  X-NODE 
C 

DO  20  1-2, MXl 
SUM-0. 

C 

C  LOOP  TO  VARY  Y-NODE 
C 

DO  10  J-3,NY1 

SUM-SUM+0.5*(D(I,J)+D(I,J-1))*(Y(J)-Y(J-1)) 

10  CONTINUE 
C 

C  C(1,I)  CONTAINS  THE  WEIGHTED  AVG.  DEPTH  ALONG  NODE  ROW  I.  (H  bar) 

C 

C(1,I)-SUM/(Y(NY1)-Y(2)) 
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20  CONTINUE 

C(1,MX)-DC+TIDE 

C(2,I)-S1 

C(2,MX)-S2 

CALL  SPLINE(MXI,MX,X,C) 
CALL  CALCCF(MX1,MX,X,C) 
RETURN 
END 


INPUT:  N.I.XI;  RETURNED;  C 
SUBROUTINE  SPLINE(N,I,XI ,C) 

COMMON/ AF/NTRUC, IDEPM, IPLINE, DC, DBASE, MX,NY, TIDE 
DIMENSION  XI(MX),C(4,134),D(134),DIAG(134) 

DIAG(1)-1. 

D(l)-0. 

NPl-I 

LOOP  THROUGH  X-VALUES  TO  COVER  NEAR  FIELD 

DO  10  M-2,NP1 
D(M)-XI(M)-XI(M-1) 

DIAG(M)  CONTAINS  THE  AVG.  SLOPE  BETWEEN  ROW  (M)  AND  ROW  (M-1). 

DIAG(M)-(C(1,M)-C(1,M-1))/D(M) 

10  CONTINUE 

AGAIN  LOOP  TO  COVER  NEAR  FIELD 
DO  20  M-2,N 

C(2,M)-3.*(D(M)*DIAG(M+1)+D(M+1)*DIAG(M)) 
DIAG(M)-2.*(D(M)+D(M+1)) 

20  CONTINUE 

AGAIN  LOOP  TO  COVER  NEAR  FIELD 

DO  30  M=2,N 
G=-D(M+1)/DIAG(M-1) 

DIAG(M)-D1AG(M)+G*D(M-1 ) 

C(2,M)-C(2,M)+G*C(2,M-1) 

30  CONTINUE 
NJ-NPl 
C 

C  COMPLETE  CALCULATION  OF  SECOND  ROW  OF  ARRAY  C 
C 

DO  40  M-2,N 
C 

C  THE  VALUE  OF  NJ  WILL  VARY  FROM  MX-2  DOWN  TO  2 
C 

NJ-NJ-1 

C(2,NJ)»(C(2,NJ)-D(NJ)*C(2,NJ+1))/DIAG(NJ) 

40  CONTINUE 
RETURN 
END 

C 

C 

C  SUBROUTINE  CALCCF  (CALCulate  Cubic  spline  CoeFf icients ) 

C  INPUT:  N,MX,X1;  RETURNED:  C  (N  MUST  BE  .LT.  MX) 
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SUBROUTINE  CALCCF(N,MX,XI,C) 
DIMENSION  XI(MX), 0(4,134) 

DO  10  I-1,N 
DX«X1(I+1)-XI(I) 
DIVDF1-(C(1,I+1)-C(1,I))/DX 
DIVDF3-C( 2 , I )+C( 2 , I+l )-2 . *DIVDF1 
C(3,I)-(DIVDF1-C(2,I)-DIVDF3)/DX 
10  C(4,I)-DIVDF3/DX/DX 
RETURN 
END 


FUNCTION  PCUBIC  (Polynomial  -  CUBIC) 

INPUT:  XBAR;  RETURNED:  PCUBIC 

NOTE:  THIS  FUNCTION  ALWAYS  RETURNS  A  DEPTH  FOR  BACKGROUND  TOPOGRAPHY. 
FUNCTION  PCUBIC (XBAR) 

COMMON/AF/NTRUC,IDEPM,IPLINE,DC,DBASE,MX,NY,TIDE 
COMMON/AG/XI,YI,DEP,U,V 
COMMON/ DI/ IBACKD, IREALD, IBREAK.ICURRN 
COMMON/CC/  C 

DIMENSION  XI(134) ,C(4, 134) ,YI( 133) ,DEP( 134,133) 

DIMENSION  U(134,133),V(134,133) 

IF( IBACKD. EQ.l)  GO  TO  8 
IF( IBACKD. EQ. 2)  GO  TO  6 

ALTERNATIVE  CONSTANT  SLOPE  BACKGROUND  FOR  DEBUGGING 

PCUBIC=0.01*XBAR 
RETURN 

ALTERNATIVE:  CUBIC  LEAST-SQUARE  FITS  TO  ALL  INPUT  DEPTHS  FOR 
BACKGROUND  TOPOGRAPHY 

6  X=XBAR 

PCUBIC=C(l,4)+C(2,4)*X+C(3,4)*X*X+C(4,4)*X*X*X 
RETURN 

ORIGINAL  CUBIC  SPLINE  ALGORITHM 
8  1=1 

DX-XBAR-XI(I) 

SORT  THROUGH  ARRAY  OF  LOCATIONS  XI(N)  TO  FIND  THE  NODE  ROW  NUMBERS 
(N)  AND  (N+1)  WHICH  ARE  ON  DIFFERENT  SIDES  OF  X-LOCATION  XBAR 

IF(DX)  10,40,30 

CHECK  IF  POINT  IS  ABOVE  NEAR  FIELD 

10  IF(I  .EQ.l)  GO  TO  40 
I-I-l 

DX-XBAR-XI(I) 

IF(DX)  10,40,40 
20  I-I+l 
DX-DDX 

C  CHECK  IF  POINT  IS  BELOW  NEAR  FIELD 
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30  1F(I  .EQ.  MX)  GO  TO  40 
DDX»XBAR-XI(I+1) 


LOOP  UNTIL  XI(I+1)  >  XBAR 
IF(DDX)  40,20,20 

NOTE:  FORM  OF  F(x)-  C(1,I)  +  C(2,I)  x  +C(3,I)  x*x  +  C(4,I)  x*x*x 

40  PCUBIC-C(1,I)+DX*(C(2,I)+DX*(C(3,I)+DX*C(4,I))) 

RETURN 
END 
C 
C 

C  SUBROUTINE  DEPINP  (DEPth  INterPolation) 

C  INPUT: 

C  MX-  NUMBER  OF  NODES  IN  X-DIRECTION  (INCLUDES  1  ARTIFICIAL  NODE). 
C  NY-  NUMBER  OF  NODES  IN  Y-DIRECTION  (INCLUDES  2  ARTIFICIAL  NODES). 
C  IX-  NUMBER  OF  X-LOCATION  OF  NODE  AT  WHICH  TO  START  CHECKING 
C  TO  FIND  THE  NODES  WHICH  BRACKET  THE  POINT  OF  INTEREST. 

C  1X1=  IX+l 

C  lY-  NUMBER  OF  Y-LOCATION  OF  NODE  AT  WHICH  TO  START  CHECKING 
C  TO  FIND  THE  NODES  WHICH  BRACKET  THE  POINT  OF  INTEREST. 

C  lYl-  lY+l 

C  XI-  ARRAY  OF  X-LOCATIONS  OF  GRID  POINTS  OF  INPUT  DEPTHS. 

C  YI-  ARRAY  OF  Y-LOCATIONS  OF  GRID  POINTS  OF  INPUT  DEPTHS. 

C  DEP-  ARRAY  OF  VALUES  OF  INPUT  DEPTHS 
C  X-  X-LOCATION  OF  POINT  OF  INTEREST. 

C  Y-  Y-LOCATION  OF  POINT  OF  INTEREST. 

C  RETURNED: 

C  DR-  THE  INTERPOLATED  ACTUAL  DEPTH  AT  THE  POINT  OF  INTEREST  - 
C  UX-  THE  INTERPOLATED  CURRENT  COMPONENT  IN  X-DIR. 

C  VY-  THE  INTERPOLATED  CURRENT  COMPONENT  IN  Y-DIR. 

C  DIVU-  DIVERGENCE  OF  CURRENT  VECTOR 

C 

SUBROUTINE  DEPINP(IX, IXl , lY , lYl ,X,Y,DR,UX,VY,DIVU) 

COMMON/ AF/ NTRUC , IDEPM, IPLINE , DC , DBASE , MX, NY , TIDE 
COMMON/ AG/ XI, Y I, DEP, U,V 
COMMON/ D I / IBACKD , IREALD , I BREAK , ICURRN 
COMMON/CC/  C 

DIMENSION  XI(134),YI(133),DEP(134,133),TEMP(16),XGRID(4) 
DIMENSION  YGRID(4),C(4,134),U(134,133),V(134,133),B(6) 

UX=0. 

VY-0. 

DIVU-0. 

IF( IREALD. GT.O)  GO  TO  5 
C 

C  ALTERNATE  SLOPE  FOR  DEBUGGING 
C 

DR-0.01*X 
RETURN 
5  IX-i 

rxi-2 

lY-l 

IY1=2 

MXl-MX-1 

NYl-NY-1 

10  IF(X  .LT.  XI(IX)  .AND.  X  .LT.  XI(IXl))  GO  TO  40 
20  IF(X  .GT.  XI(IX)  .AND.  X  .GT.  XI(IXl))  GO  TO  30 

C 
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C  IF  X  NODES  LOCATED  THEN  LOOK  FOR  Y  NODES 
C 

IF(X  .GE.  XI(IX)  .AND.  X  .LE.  XI(IXl))  GO  TO  50 
30  IX»IX+1 
IXI=-1X+1 

IF(IX  .EQ.  MXl)  GO  TO  100 
GO  TO  20 
40  IXl-IX 
IX-IXl'l 

IF(IX  .EQ.  0)  GO  TO  100 
GO  TO  10 

50  IF(Y  .LT.  YI(IY)  .AND.  Y  .LT.  YI(IYl))  GO  TO  80 
60  IF(Y  .GT.  YI(IY)  .AND.  Y  .GT.  YI(IYl))  GO  TO  70 
C 

C  IF  Y  NODES  LOCATED  THEN  DO  INTERPOLATION 
C 

IF(Y  .GE.  YI(IY)  .AND.  Y  .LE.  YI(IYl))  GO  TO  90 
70  IY=1Y+1 
IY1=IY+1 

IF(IY  .EQ.  NYl)  GO  TO  100 
GO  TO  60 
80  IY1=IY 
IY=1Y1-1 

IF(IY  .EQ.  1)  GO  TO  100 
GO  TO  50 

90  IF(IR£ALD  .GT.  1)  GO  TO  140 
RH-XI(IX1)-XI(1X) 

RK=YI(IY1)-YI(IY) 

C 

C  FRACTION  AWAY  FROM  NODE  IX 
C 

P=-(X-XI(IX))/RH 

C 

C  fraction  away  FROM  NODE  lY 
C 

Q-(Y-YI(IY))/RK 

C 

C  FRACTION  AWAY  FROM  NODE  IX+1 
C 

Pl-l.-P 

C 

C  FRACTION  AWAY  FROM  NODE  IY+1 
C 

Ql-l.-Q 

C 

C  DIRECT  WEIGHTING  BY  DISTANCE  FROM  NODES  WHERE  DEPTHS  ARE  KNOWN 
C 

DR»P1*Q1*DEP( IX, IY)+P*Q1*DEP( IXl , IY)+Q*P1*DEP( IX, lYl )+ 

*  P*Q*DEP(IX1,IY1) 

IFdCURRN  .EQ.  0)  RETURN 

UX-P1*Q1*U( IX, IY)+P*Q1*U( 1X1 , 1Y)+Q*P1*U( IX, lYl )+ 

*  P*Q*U(IX1,IY1) 

VY-Pl*Qli»V( IX, IY)+P*Q1*V( 1X1 , IY)+Q*P1*V( IX, IY1)+ 

*  P*Q*V(IX1,IY1) 

DIVU-(Q1*(-U(IX,IY)+U(IX1,IY))+Q*(-U(IX,IY1)+U(IX1,IY1)))/RH 

*  +(P1*(-V(IX,1Y)+V(IX,IY1))+P*(-V(IX1,IY)+V(IX1,IY1)))/RK 
RETURN 

100  IFdBATCH  .NE.  2)  WRITE(6,110) 

no  FORMATC'  OUTSIDE  NEAR  FIELD  “  USING  BACKGROUND  DEPTH') 
DR-PCUBIC(X) 
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RETURN 

140  IX2-IX1+1 
IY2-1Y1+1 
IXO-IX-1 
IYO-IY-1 

IFdXO  .NE.  0)  GO  TO  160 

1X0-1 

IX-2 

IXl-3 

1X2-4 

160  XGRID(1)-XI(IX0) 

XGRID(2)-XI(IX) 

XGRrD(3)-XI(IXl) 

XGRID(4)-XI(IX2) 

YGRID(1)-YI(1Y0) 

YGRID(2)-YI(1Y) 

YGRID(3)-Y1(IY1) 

YGRID(4)-YI(IY2) 

SUBROUTINE  FOR  CUBIC  SPLINE  DEPTH  INTERPOLATION 
IF(IREALD.GT.3)  GO  TO  130 

CALL  TRALOC( IXO , IX, IXl , 1X2 , lYO , lY , lYl , IY2 , DEP , TEMP) 

CALL  CUBDEP ( IREALD , TEMP , XGRI D , YGRID , X , Y , DR , DRDX ) 
IFdCURRN  .EQ.  0)  RETURN 

CALL  TRALOC( 1X0 , IX, 1X1 , 1X2 , lYO , lY , lYl , IY2 , U , TEMP) 

CALL  CUBDEP( 2 , TEMP , XGRID , YGRID , X , Y , UX, DUDX) 

CALL  TRALOC( IXO , IX , 1X1 , 1X2 , lYO , lY , lYl , IY2 , V , TEMP) 

CALL  CUBDEP ( 3 , TEMP , XGRID , YGRID , X , Y , VY , DVDY ) 

DIVU-DUDX+DVDY 

RETURN 

FOR  LEAST  SQUARES  SURFACE  FIT  ON  THE  SIXTEEN  DATA  POINTS. 
G(X,Y)-  AO  +  A1  X  +  A2  Y  +  A3  X  Y  +  A4  X**2  +  A5  Y**2 

130  CALL  TRALOCdXO,IX,IXl,IX2,IYO,IY,IYl,IY2,DEP,TEMP) 

CALL  LSTSQR(TEMP, XGRID, YGRID, X,Y, DR, B) 

IFdCURRN  .EQ.  0)  RETURN 

CALL  TRAL0C( IXO , IX , 1X1 , 1X2 , lYO , lY , lY 1 , IY2 , DEP , TEMP ) 

CALL  LSTSQR ( TEMP , XGRID , YGRID , X , Y , UX , B ) 
DIVU=B(2)+B(4)*Y+2.*B(5)*X 

CALL  TRALOCdXO,  IX,  1X1 , 1X2,  lYO,  lY,  lYl ,  IY2, DEP, TEMP) 

CALL  LSTSQR( TEMP , XGRID , YGRID , X , Y , VY , B ) 

DIVU=DIVU+B(3)+Bd)*X+2.*B(6)*Y 

RETURN 

END 

STORE  QUANTITIES  FOR  LOCAL  TRANSFORMATION  IN  16-POINT  LSTSQR 
C 

SUBROUTINE  TRALOC( IXO , IX, 1X1 , 1X2 , lYO , lY , lYl , IY2 , FF ,TEMP) 
DIMENSION  FFd34,133),TEMPd6) 

TEHPCl)-  FFCIXO.IYO) 

TEMP(2)-  FF(IXO,IY) 

TEMP(3)-  FFdXO.IYl) 

TEMP(4)=  FFdX0,IY2) 

TEMP(5)-  FFdX,LYO) 

TEMPI 6)-  FFdX.IY) 

TEMP(7)-  FFdX.IYl) 

TEMP(8)-  FFdX,IY2) 

TEMP(9)-  FFdXl,IYO) 
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TEMP(IO)-  FFdXl.IY) 

TEMP(ll)-  FFdXl.IYl) 

TEMPd2)-  FFdXl.m) 

TEMPd3)-  FFdX2,IY0) 

TEMPdA)-  FFdX2,lY) 

TEMPCIS)-  FFdX2,IYl) 

TEMPdb)-  FFdX2,IY2) 

RETURN 

END 

C 

C 

SUBROUTINE  CUBDEP(IFLAG, DEPTH, XGRID.YGRID.X.Y, UR, DROX) 

DIMENSION  DEPTH(16),XGRID(4),YGRID(A),DINTRP{4) 

IFdFLAG.EQ.3)  GO  TO  10 
C 

C  DO  CUBIC  SPLINE  ACROSS  EACH  X-ROW  (IFLAG-2).  l.E.  SPLINE  ACROSS  ROWS  TO 
C  INTERPLOATE  QUANTITY  AT  THE  INTERSECTION  OF  EACH  ROW  WITH  THE  DESIRED 
C  Y  AND  THEN  SPLINE  DOWN  THESE  FOUR  VALUES  TO  YIELD  AN  INTERPOLATED 
C  QUANTITY  AT  X. 

C 

CALL  SPLAPT( Y , YGRID ,DEPTH( 1 ) , DEPTH( 2 ) , DEPTH( 3 ) , DEPTH( A ) , DINTRP( 1 ) 

*  ,DFDX) 

CALL  SPLAPT(Y, YGRID, DEPTH(5),DEPTH(6),DEPTH(7),DEPTH(8),DINTRP(2) 

*  ,DFDX) 

CALL  SPLAPT( Y , YGRID , DEPTH( 9 ) , DEPTH( 10), DEPTH( 1 1 ) , DEPTH( 1 2 ) , 

*  DINTRP(3),DFDX) 

CALL  SPLAPTC Y , YGRID , DEPTH( 13), DEPTH( 1 A ) , DEPTH( 15), DEPTH( 16), 

*  DINTRP(A),DFDX) 

CALL  S  PLA  PT ( X , XGRID , DINTRP (1 ) , DINTRP( 2 ) , DINTRP ( 3 ) , DINTRP ( A ) , DR , 

*  DRDX) 

RETURN 

C 

C  DO  CUBIC  SPLINE  DOWN  EACH  Y-COLUMN  FIRST  dFLAG“3) 

C 

10  CALL  SPLAPT( X ,XGRID , DEPTH( 1 ) , DEPTH( 5 ) , DEPTH( 9 ) , DEPTH( 13), DINTRP( 1 ) 

*  ,DFDX) 

CALL  SPLAPT(X,XGR1D,DEPTH(2) ,DEPTH(6) ,DEPTHdO) ,DEPTH( lA) , 

*  UINTRP(2),DFDX) 

CALL  S  PLA  PT ( X , XGRID , DEPTH ( 3 ) , DEPTH( 7 ) , DEPTH (1 1 ) , DEPTH (1 5 ) , 

*  DINTRP(3),DFDX) 

CALL  S PLAPT( X , XGRID , DEPTH ( A ) , DEPTH( 8 ) , DEPTH (1 2 ) , DEPTH (16), 

*  DINTRP ( A ),DFDX) 

C 

C  THEN  ACROSS  ROW 
C 

CALL  SPLAPTC Y, YGRID, DINTRP( 1 ) ,DINTRP(2) ,DINTRP(3) , 

*  DINTRP(A),DR,DRDX) 

RETURN 

END 

C 

C 

SUBROUTINE  SPLAPT( X , XGRID , D 1 , D2 , D3 , DA , FX , DFDX ) 

DIMENSION  XGR1D(A),DX(3),A(2,2),B(2) 

IF(D1.EQ.D2  .AND.  D2.EQ.D3  .AND.  D3.EQ.DA)  GO  TO  99 
DXd)-  XGRID(2)-XGRIDd) 

DX(2)-  XGRID(3)-XGRID(2) 

DX(3)»  XGRID(A)-XGRID(3) 

Ad.D-  2.*(XGRID(3)-XGRIDd))/DX(2) 

A(l,2)-  l.O 

Bd)-  6.0*((D3-D2)/(DX(2)*DX(2))-{D2-Dl)/(DX(2)*DXd))) 

lAA 
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A(2,1)-DX(2)/DX(3) 

A(2,2)-  2.*(XGRID(4)-XGRID(2))/DX(3) 
B(2)-6.*((D4-D3)/(DX(3)*DX(3))-(D3-D2)/(DX(3)*DX(2))) 

CALL  S0LVE2(A,B) 

FX»B(1)/6.0*((XGRID(3)-X)**3/DX(2)-DX(2)*(XGRID(3)~X)) 
FX-FX+B(2)/6.0*((X-XGRID(2))**3/DX(2)-DX(2)*(X-XGR1D(2))) 
FX=FX+D2*( XGRID( 3 )-X) / DX( 2 )+D3*( X-XGRID( 2 ) ) / DX( 2 ) 
DFDX-B(1)/6.*(3.*(XGRID(3)-X)**2/DX(2)+DX(2)) 

*  +B(2)/6.*(3.*(X-XGRID(2))**2/DX(2)-DX(2))+(D3-D2)/DX(2) 
RETURN 
y9  FX-Dl 
DFDX-0. 

RETURN 

END 


SUBROUTINE  SOLVE2(A,B) 

DIMENSION  A(2,2),  B(2) 

PIV-A(1,1) 

A(l,l)-1.0 
A(1,2)-A(1,2)/PIV 
B(l)-  B(1)/PIV 
RMULT-A(2,1) 

A(2.1)-0.0 

A( 2 , 2 )-A( 2 , 2 )-RMULT*A( 1 , 2 ) 

B(2)=B(2)-RMULT*B(1) 

DIV-A(2.2) 

A(2,2)»1.0 
B(2)-  B(2)/DIV 
RMULT-A(1,2) 

A(l,2)-0.0 

B(1)-B(1)-RMULT*B(2) 

RETURN 

END 

C 

C 

SUBROUTINE  LSTSQR( DEPTH , XGRID , YGRID , X , Y , DR , B ) 
dimension  XGRID( 4 ) , YGRID( 4 ) , DEPTH( 16),A(6,6),B(6) 
COMMON / DI / I BACKD , IREALD , I BREA , ICURRN 
N-b 

CALL  MAKEQN(A,B, XGRID, YGRID, DEPTH) 

CALL  GJSOLV(A,B,N) 

DR-B(1)+B(2)*X+B(3)*Y+B(4)*X*Y+B(5)*X*X+B(6)*Y*Y 

RETURN 

END 

C 

C 

SUBROUTINE  MAKEQN(A,B,X, Y,D) 

DIMENSION  X(4),Y(4),D(16),A(6,6),B(6) 

A{1,1)-16.0 

SX-0,0 

SY-O.O 

SXY-O.O 

SXX-O.O 

SYY-0.0 

SXXY-0.0 

SXXX-0.0 

SXYY-0.0 

SYYY-0.0 

SXXYY-0.0 
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SXXXY-O.O 
SXYYY-0.0 
SXXXX-0.0 
SYYYY-0.0 
DO  20  1*1, A 
DO  10  J-1,4 
X2=X(J)*X(J) 
Y2-Y(I)*Y(I) 

X3-X(J)**3 

Y3-Y(I)**3 

SX-SX+X(J) 

SY-SY+Y(I) 
SXY-SXY+X(J)*Y(I) 
SXX=SXX-t-X2 
SYY-SYY+Y2 
SXXy=SXXY+X2*Y(I) 
SXXX»SXXX+X3 
SXYY=-SXYY+X(J)*Y2 
SYYY-SYYY+Y3 
SXXYY=*SXXYY+X2*Y2 
SXXXY=SXXXY+X3  *  Y(I) 
SXY YY=SXYYY+X( J ) *Y3 
SXXXX  »  SXXXX  +  X(J)**A 
SYYYY  =»  SYYYY  +  Y(I)**4 
10  CONTINUE 
20  CONTINUE 
A(1,2)-SX 
A(1,3)-SY 
A(1,4)-SXY 
A(1,5)-SXX 
A(1,6)«SYY 
A(2,1)“A(1,2) 
A(2,2)-A(l,5) 
A(2,3)-A(1,4) 
A(2,4)-SXXY 
A(2,5)-SXXX 
A(2,6)-SXYY 
A(3,l)-A(l,3) 
A(3,2)-A(2,3) 
A(3,3)-A(1,6) 
A(3,4)-A(2,6) 
A(3,5)-A(2,4) 
A(3,6)-SYYY 
A(4,1)-A(1,4) 
A(4,2)-A(2,4) 
A(4,3)-A(3,4) 
A(4,4)-SXXYY 
A(4,5)-SXXXY 
A(4,6)-SXYYY 
A(5,l)-A(l,5) 
A(5,2)-A(2,5) 
A(5,3)-A(3,5) 
A(5,4)-A(4,5) 
A(5,5)-SXXXX 
A(5,6)-A(4,4) 
A(6,l)-A(l,6) 
A(6,2)-A(2,6) 
A(6,3)-A(3,6) 
A(6,4)-A(4,6) 
A(6,5)-A(5,6) 
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A(6,6)-SYYYY 

C 

C  FORM  RIGHT  HAND  SIDE 
C 

SF-0.0 

SFX-0.0 

SFY-0.0 

SFXY-0.0 

SFXX-0.0 

SFYY-0.0 

C 

C  J-ROW  NUM.  K-COL  NUM. 

C 

DO  30  1*1,16 
J-INT((I-l)/4.)+l 
K-I-(4*J)+4 
SF-SF+D(I) 

SFX-SFX+D(I)*X(J) 

SFY-SFY+D(I)*Y(K) 

SFXY-SFXY+D(I)*X(J)*Y(K) 

SFXX-SFXX+D(I)*X(J)*X(J) 

SFYY-SFYY+D(I)*Y(K)*Y(K) 

30  CONTINUE 
B(1)-SF 
B(2)-SFX 
B(3)=*SFY 
B(4)=SFXY 
B(5)=SFXX 
B(6)-SFYY 
RETURN 
END 
C 
C 

SUBROUTINE  GJSOLV( A, B, N) 

DIMENSION  A(N,N),  B(N) 

C 

C  J=PIVOT  ROW=»PIVOT  COLUMN;  I=COLUMN  NUMBER;  K-NON-PIVOT  ROW  NUMBER 
C 

DO  40  J=1,N 
C 

C  SET  PIVOT  ELEMENT  EQUAL  TO  1.0 
C 

DIV=A(J, J) 

DO  10  1=1, N 
A(J,I)=A(J,I)/D1V 
10  CONTINUE 

B(J)=B(J)/DIV 

C 

C  SET  COLUMN  ELEMENTS  OTHER  THEN  PIVOT  ELEMENT  EQUAL  TO  0.0 
C 

DO  30  K-1,N  • 
if(k.eq.j)  go  to  30 

DIV=A(K,J) 

DO  20  1=1, N 

A(K,I)-A(K,I)-DIV*A(J,I) 

20  CONTINUE 

B(K)-B(K)-DIV*B(J) 

30  CONTINUE 
40  CONTINUE 
RETURN 
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END 

C 

C 

C  REVIEW  and/or  ALTER  PARAMETERS 
C 

SUBROUTINE  REVIEW 

COMMON / AB / N , MM , BETA , OMEGA , G , DS IG , DRHO , WKO 

COMMON/ AC/ NN , M, XO , YO , T , XUB , XLB , YLB , YRB , ALPHA, lOPTCO 

COMMON/ AD/ S I , S2 , lOPTBU , lOPTBD , IBATCH 

COMMON/ AE/ I P , IFRCT , XDAMP , AO , FRCT 

COMMON/ AF/NTRUC , IDEPM , IPLINE , DC , DBASE , MX , NY , TIDE 

COMMON/AG/XI,YI,DEP,U,V 

COMMON/ AI / I BKWTR , IBKWPT , XBW , YBW 

COMMON/ DI/ IBACKD, IREALD, IBREAK, ICURRN 

DIMENSION  IBKWPT(5),XBW(5,10),YBW(5,10) 

C 

WRITE(6,10)T 

10  FORMAT('  THE  WAVE  CONDITIONS  IN  THE  DEEP  WATER  REGION', 

*  '  ARE  AS  FOLLOWS:'/  '  PERIOD-  ',F10.4) 

CALL  RCHECK(T) 

ADEG-ALPHA* 180./ 3. 14159265 
WRITE ( b , 20 ) ALPHA , ADEG 

20  FORMAT('  INCIDENT  ANGLE  =  ',F10.4,'  RAD.  =  ',F10.4,'  DEG.') 
CALL  RCHECK(ADEG) 

ALPHA-ADEG*3 .14159265/180. 

WRITE(6,30)G 

30  FORMAT('  ACCELERATION  DUE  TO  GRAVITY  -  ',F10.4) 

CALL  RCHECK(G) 

WRITE(6,40)A0 

40  FORMATC'  WAVE  AMPLITUDE  -  ',F10.4) 

CALL  RCHECK(AO) 

WRITE(6,41)TIDE 

41  FORMAT('  TIDE  LEVEL  =  ',F10.4) 

CALL  RCHECK(TIDE) 

WRITE(6,50)X0 

50  FORMAT('  REFERENCE  POINT  FOR  REFERENCE  LINE:'/ 

*  '  X-COORDINATE  -  ',F15.4) 

CALL  RCHECK(XO) 

WRITE(6,60)Y0 

60  FORMAT('  Y-COORDINATE  =  ',F15.4) 

CALL  RCHECK(YO) 

WRITE(6,111)I0PTC0 

111  FORMAT('  OPTION  OF  COORDINATES  -  ',15) 

CALL  ICHECK(IOPTCO) 

WRITE(6,112)IOPTBU 

112  FORMAT('  OPTION  OF  UPWAVE-SIDE  BOUNDARY  CONDITION  -  ',15) 

CALL  ICHECKdOPTBL) 

WRITE(6,113)IOPTBD 

113  FORMATC'  OPTION  OF  DOWNWAVE-SIDE  BOUNDARY  CONDITION  -  ',15) 

CALL  ICHECK(IOPTBR) 

MXl-MX-1 

NY2-NY-2 

WRITE(6,120)MX1 

120  FORMATC///'  DESCRIPTION  OF  NEAR  FIELD  :'/ 

*  '  LAY-OUT  OF  GRID  MESH;'/ 

*  '  NUMBER  OF  NODES  IN  X-DIRECTION  MX-1  *  ',15) 

CALL  ICHECKCMXl) 

MX-MXl+1 

WRITEC6,130)NY2 

130  FORMATC'  NUMBER  OF  NODES  IN  Y-DIRECTION  NY-2  -  ',15) 
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CALL  1CHECK(NY2) 

NY-NY2+2 

WRITE(6,1A0)S1 

140  FORMATC'  THE  ESTIMATED  SLOPE  AT  X(l)  (BASELINE)  -  ',F10.5) 
CALL  RCHECK(Sl) 

WRITE(6,150)S2 

150  FORMAT('  THE  ESTIMATED  SLOPE  AT  X(MX-l)  -  ',F10.5) 

WRITE(6,160)DC 

160  FORMATC'  DEPTH  AT  CONSTANT  REGION  -  ',F10.5) 

CALL  RCHECR(DC) 

WRITE(6,161)DBASE 

161  FORMATC'  DEPTH  AT  BASELINE  -  ".FIO.S) 

CALL  RCHECKC DBASE) 

WR1TE(6,250)NN 

250  FORMAT(///'  OTHER  COMPUTATIONAL  PARAMETERS  :'/ 

NUMBER  OF  POINTS  ON  REFERENCE  LINE  TO  LANDWARD  (NN)  •  ',15) 
CALL  ICHECK(NN) 

WRITE(6,260)N 

260  FORMATC'  NUMBER  OF  POINTS  TO  SEAWARD  (N)  -  ',15) 

CALL  ICHECK(N) 

WRITE(6,270)M 

270  FORMAT('  NUMBER  OF  MARCHING  STEPS  (M)  -  ',15) 

CALL  ICHECK(M) 

WRITE(6,275)NTRUC 

275  FORMATC'  NUMBER  OF  NODES  TO  BE  USED  IN  CALC.(NTRUC)  •  ',15) 

CALL  ICHECK(NTRUC) 

WRITE(6,280)DSIG 

280  FORMAT('  STEP  SIZE  ALONG  MARCHING  DIR.  (DELTA  SIGMA)  =•  ',F15.4) 
CALL  RCHECKC DSIG) 

WRITE(6,290)DRHO 

290  FORMATC'  STEP  SIZE  ALONG  TRANSVERSIAL  DIR.CDELTA  RHO)  -  ',F15.4) 
CALL  RCHECKC DRHO) 

WRITEC6,310)IFRCT 

310  FORMATC'  FRICTION  CONSIDERATION  (IFRCT)  -  ',15/ 

*  '  IFRCT  -  1  MEANS  CONSIDER  FRICTION'/ 

*  '  IFRCT  «  0  MEANS  NEGLECT  BOTTOM  FRICTION') 

CALL  ICHECKC IFRCT) 

IFCIFRCT.EQ. 1)  GO  TO  320 
XDAMP-0. 

FRCT=0. 

GO  TO  350 

320  WRITE(6,330)XDAMP 

330  FORMATC'  X-LOCATION  AT  WHICH  TO  START  FRICTION  ', 

*  'CONSIDERATION  -  ',F15.4) 

CALL  RCHECKC XDAMP) 

WRITE(6,340)FRCT 

340  FORMATC'  FRICTION  FACTOR  »  ',F10.6) 

CALL  RCHECKC FRCT) 

350  WRITEC6,430)IP 

430  FORMATC'  SCAN  EVERY  IP  STEPS;  IP  -  ',15) 

CALL  ICHECKC IP) 

WRITE(6,440)IDEPM 

440  FORMATC'  PRINT  MODE  -  BACKGROUND  DEPTH  (IDEPM)  -  ',15/ 

*  '  IDEPM  -  1  MEANS  OUTPUT  BACKGROUND  DEPTHS'/ 

*  '  IDEPM  -  0  MEANS  DO  NOT  OUTPUT  DEPTHS.') 

CALL  ICHECKC IDEPM) 

WRITE(6,450)IPLINE 

450  FORMATC'  PRINT  MODE  -  REFERENCE  LINE  (IPLINE)  =  ',15/ 

*  '  IPLINE  -  I  MEANS  OUTPUT  REFERENCE  LINE'/ 

*  '  IPLINE  -  0  MEANS  DO  NOT  OUTPUT  ORIGINAL  LINE') 
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CALL  ICHECK(IPHNE) 

WRITE(6,35)IBREAK 

35  FORMAT('  ENTER  IBREAK:  =-0  FOR  NO  WAVE  BREAKING,'/ 

*  '  -I  FOR  BREAKING  BUT  DO  NOT  OUTPUT  BREAKING  DATA'/ 

*  '  -2  FOR  BREAKING  AND  DATA  FILE  OF  BREAK  LOCS+AMPS.'/ 

*  '  PRESENT  IBREAK  =*  ',15) 

CALL  ICHECK( IBREAK) 

WRITE(6,8)ICURRN 

8  FORMAT('  ICURRN  -  1  :  PRESENCE  OF  CURRENT  FIELD,'/ 

*  '  -  0  :  NO  CURRENT  FIELD. ',15) 

CALL  ICHECK( ICURRN) 

WRITE(6,5)IBACKD 

5  FORMATC'  ENTER  CHOICE  FOR  DEPTH  INTERPOLATION  SCHEMES:'/ 

*  '  BACKGROUND  DEPTH;  IBACKD  -  0  IS  FOR  PLANE  BEACH  WITH'/ 

*  '  SLOPE  -  0.01  (USED  FOR  DEBUGGING).'/ 

*  '  IBACKD- 1  IS  FOR  CUBIC  SPLINE  OVER  AVG.  DEPTH  AT  EACH  ROW' 

*  /'  IBACKD-2  IS  LEAST  SQUARE  CUBIC  EQN.  IN  X-DIRECTION.'/ 

*  '  PRESENT  IBACKD  -  ',15) 

CALL  ICHECK( IBACKD) 

WRITE(6,7)IREALD 

7  FORMATC//'  ACTUAL  DEPTH;  IREALD-0  IS  PLANE  BEACH  WITH  SLOPE'/ 

*  '  EQUAL  0.01  (USED  FOR  DEBUGGING).'/ 

*  '  IREALD-1  IS  LINEAR  AVG.  OF  4  SURROUNDING  GRID  POINTS.'/ 

*  '  IREALD-2  USES  A  16  POINT  GRID  FOR  A  CUBIC  SPLINE  ACROSS'/ 

*  '  EACH  OF  4  ROWS  AND  THEN  ONCE  DOWN  THE  INTERPOLATED  '/ 

*  '  DEPTHS  ALONG  THE  DESIRED  Y-VALUE.'/ 

*  '  IREALD-3  IS  LIKE  IREALD-2  EXCEPT  THE  SPLINE  IS  DONE  ON  '/ 

*  '  THE  COLUMNS  AND  THEN  THE  ROW  OF  THE  DESIRED  X-VALUE.'/ 

*  '  IREALD-4  IS  A  LEAST  SQUARE  FIT  OF  THE  16  POINT  GRID  TO'/ 

*  '  A  6  COEFFICIENT  DEPTH  EXPRESSION.'/ 

*  '  PRESENT  IREALD  -  ',15) 

CALL  ICHECKC IREALD) 

RETURN 

END 

C 

C 

SUBROUTINE  RCHECK(X) 

WRITE(6,10) 

10  FORMATC'  DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ?'/ 

*  '  ENTER  1  FOR  YES,  0  FOR  NO') 

REAU(5,*)I 

IF(I.NE.l)  GO  TO  99 
WRITE(6,20)X 

20  FORMATC'  OLD  VALUE  -  ',F20.6,'  ENTER  NEW  VALUE  :') 

READ(5,*)X 
99  RETURN 
END 


SUBROUTINE  ICHECKC J) 

WRITE(6,10) 

10  FORMATC'  DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ?'/ 

*  '  ENTER  1  FOR  YES,  0  FOR  NO') 

READ(5,*)I 
IF(I.NE.l)  GO  TO  99 
WRITE(6,20)J 

20  FORMATC'  OLD  VALUE  =  ',15,'  ENTER  NEW  VALUE  :') 

READ(5,*)J 
99  RETURN 
END 
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c 

c 

SUBROUTINE  MAKEC(C) 

COMMON/ AC/ NN , M , XO , YO , T , XUB , XLB , YLB , YRB , ALPHA , lOPTCO 
COMMON/AD/S  1 , S2 , lOPTBU, lOPTBD, IBATCH 
COMMON/AF/NTRUC , IDEPM, IPLINE , DC , DBASE , MX, NY , TIDE 
COMMON/ AG/ XI , YI , DEP , U , V 
COMMON/ DI/ IBACKD , IREALD , IBREAK, ICURRN 

DIMENSION  XI(134),YI(133),DEP(134,133),C(4,134),TEMP(134) 

DIMENSION  U( 134 , 133) ,V( 134, 133) ,TEMP1( 134) ,TEMP2(134) 

MXl-MX-i 

MX2=MX-2 

NYl-NY-1 

NY2-NY-2 

DO  2  1-1,134 

TEMPl(I)-0. 

2  TEMP2(I)-0. 

READ(9,*)  IFLIP 
IF(IFLIP  .EQ.  2)  GO  TO  81 
DO  10  1=1, MXl 

R£AD(9,*)  (TEMP(L),L=2,NY1) 

IFdCURRN  .EQ.  0)  GO  TO  61 
READ(11,*)(TEMP1(L),L-2,NY1) 

READ(12,*)(TEMP2(L),L=2,NY1) 

61  IFdFLIP  .EQ.  1)  GO  TO  7 
DO  5  L-2,NY1 
Ud,L)=TEMPl(L) 

Vd,L)=TEMP2(L) 

5  DEPd,L)-TEMP(L)+TIDE 
GO  TO  10 

7  DO  8  L»2,NY1 
J-NY-L+1 
Ud,L)-TEMPl(J) 

Vd,L)=TEMP2(J) 

8  DEPd,L)»TEMP(J)+TIDE 
10  CONTINUE 

GO  TO  82 

81  DO  83  1=2, NYl 

READ(9,*)  (TEMP(L) ,L=1,MX1) 

IFdCURRN  .EQ.  0)  GO  TO  85 
READdl,*)(TEMPl(L),L-l,MXl) 

READd 2 , *  )  (TEMP2 ( L)  ,  L=  1  ,MX1 ) 

85  DO  84  L=1,MX1 

DEP(L,I)-TEMP(L)+TIDE 

U(L,I)-TEMP1(L) 

V(L,1)-TEMP2(L) 

84  CONTINUE 
83  CONTINUE 

82  READdO,*)  IFORMX 
IFdFORMX.NE.l)  GO  TO  30 
READdO,*)  XId),XI(MXl),XDEL 
DO  20  1=2, MX2 
XId)-XId-l)+XDEL 

20  CONTINUE 
GO  TO  35 

30  READdO, *)(XI(LL),LL=1, MXl) 

35  READdO,*)  IFORMY 

IFdFORMY.NE.l)  GO  TO  50 
READdO,*)  Y1(2),YI(NY1),YDEL 
DO  40  1=3, NY2 
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O  O  O  O  DO 


YI(I)=>YI(I-1)+YDEL 
40  CONTINUE 
GO  TO  55 

50  READdO,*)  (YI(L),L-2,NY1) 

C 

C  CREATE  ARTIFICIAL  FAR  FIELD  AT  AN  ARBITRARY  DISTANCE 
C 

55  XI(MX)-50.*(XI(MX1)-XI(1)) 

FAR-50.*(YI(NY1)-YI(2)) 

YI(1)-YI(2)-FAR 

YI(NY)-YI(NY1)+FAR 

XUB=XI(1) 

XLB-XI(MXl) 

YRB-YI(NYl) 

YLB-YI(2) 

IFdBATCH  .EQ.  2)  GO  TO  45 
WRITE(6,21) 

21  F0RMAT('  DO  YOU  WANT  TO  REVIEW  THE  DEPTH  AND  CURRENT  DATA?'// 

*  '  ENTER  1  FOR  YES,  0  FOR  NO') 

R£AD(5,*)I 

IF(I  .NE.  1)  GO  TO  45 
WRITE(6,17)(YI(L),L=2,NY1) 

17  FORMAT('  CROSS-SETIONS  OF  DEPTH  AT  Yl-  '//,5F16.4) 

WR1TE(6,18) 

18  FORMAT('  IF  DATA  ARE  GOOD,  INPUT  (1-9)  TO  CONTINUE,'/ 

*  'OTHERWISE  INPUT  0  TO  STOP') 

READ(5,*)  IGOING 
IFdGOING  .EQ.  0)  STOP 
WRITE(6,11) 

11  FORMATC//'  THE  INPUT  DEPTH  DATA  WILL  BE  PRINTED  AT  EACH  SECTION 

*  ALONG  Y-YI  BY  FREE  FORMAT,'/'  THEN  X-COMPONENT  OF  CURRENT  AND 

*  Y-COMPONENT  OF  CURRENT  IF  CURRENT  PRESENTS') 

DO  13  I»1,MX1 

WRITE(6,16)I,XI(I) 

WRITE(6,*)(DEPd,L),L=*2,NYl) 

IFdCURRN  .EQ.  0)  GO  TO  13 
WRITE(6,*)(Ud,L),L-2,NYl) 

WRITE(6,*)(Vd,L)  ,L»2,NY1) 

13  CONTINUE 

16  FORMATC'  XI  AT  ROW  -  ',15,'  IS  ',F16.4//'  DEPTH  AND  CURRENT 

&  ALONG  X  =•  XI  ARE  :'/  ) 

WRITE(6,12) 

12  FORMATC'  IF  DEPTH  AND/OR  CURRENTDATA  ARE  GOOD,  INPUT  (1-9)  TO 

*  CONTINUE,'/'  OTHERWISE  INPUT  0  TO  STOP') 

READ(5,*)  IGOING 

IFC IGOING  .EQ.  0)  STOP 
45  IFCIBACXD.LE.O)  GO  TO  71 
IFCIBACKD.EQ.l)  GO  TO  57 
C 

C  ALTERNATE  BACKGROUND  -  LEAST  SQUARE  FIT  FOR  ONE  CUBIC  EQN. 

FOR  WHOLE  BACKGROUND,  NOT  SEPARATE  EQNS.  FOR  EACH  SEGMENT. 

CALL  LSBFIT(MX,NY,XI,DEP,C) 

GO  TO  58 

CALL  CUSPIP  TO  RETURN  THE  ARRAY  C  FOR  A  CUBIC 
SPLINE  ALONG  THE  AVERAGE  DEPTH  AT  EACH  ROW. 

57  CALL  CUSPIP(MX,NY,XI,YI,DEP,C,S1,S2,DBASE,DC,TIDE) 
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C  CALL  PCUBIC  ONCE  FOR  EACH  ROW  OF  DEPTH  DATA 
C 

58  DO  60 

DEP{I,1)-PCUBIC(XI(I)) 

C 

C  SET  DEPTH  ALONG  Y-YRB  EQUAL  TO  THAT  CALCULATED  AT  Y-YLB 
C 

DEP(I,NY)-DEP(I,1) 

60  CONTINUE 
C 

C  SET  DEPTH  ALONG  FAR  FIELD  AS  SPECIFIED  BY  USER 
C 

DO  70  J»1,NY 
DEP(MX,J)-DC+TIDE 

70  CONTINUE 
RETURN 

71  XUB-0.0 
XLB-1.E9 
YRB-1.E9 
YLB— 1.E9 
RETURN 
END 

C 

C 

C  LEAST  SQUARES  FIT  OF  CUBIC  FUNCTION  TO  BACKGROUND  DEPTH 
C  (INVARIANT  IN  Y-DIRECTION) 

C 

SUBROUTINE  LSBFIT(MX,NY,XI,DEP,C) 

DIMENSION  A(4,A),B(4),XI(134),DEP(134,133),C(4,134) 
CALL  MAKEQ2(A,B,XI,MX,NY,DEP) 

A(l,l)-  1.0*(MX-1)  *(NY-2) 

N-4 

CALL  GJSOLV(A,B,N) 

C(1.4)-B{1) 

C(2,4)-B(2) 

C(3,4)-B(3) 

C(4,4)-B(4) 

RETURN 

END 

C 

C 

SUBROUTINE  MAKEQ2 ( A , B , XGRID , MX, NY , DEP) 

DIMENSION  A(4,4),B(4),XGRID(134),DEP(134,133) 

IX=MX-1 

IY-NY-2 

IYi-NY-1 

SX-0.0 

S2X-0.0 

S3X-0.0 

S4X-0.0 

S5X-0.0 

S6X-0.0 

DO  10  I»1,IX 

SX-SX+XGRID(I) 

S2X-S2X+XGRID( I)*XGRID(  I) 

S3X-S3X+XGRID(I)**3 
S4X-S4X+XGRID(I)**4 
S5X-S5X+XGRID(I)**5 
S6X-S6X+XGRID(I)**6 
10  CONTINUE 
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non 


SX-SX*IY 

S2X=-S2X*IY 

S3X-S3X*IY 

S4X-S4X*IY 

S5X-S5X*IY 

S6X-S6X*IY 

A(1,2)-SX 

A(1,3)-S2X 

A(1,4)»S3X 

A(2,l)-A(l,2) 

A(2,2)-A(l,3) 

A(2,3)-A(1.4) 

A(2,4)=‘S4X 

A(3,l)-A(1.3) 

A(3,2)-A(2,3) 

A(3,3)-A(2,4) 

A(3,4)-S5X 

A(4,l)-A(1.4) 

A(4,2)*A(2,4) 

A(4,3)-A(3,4) 

A(4,4)-S6X 

SF-0.0 

SFX*0.0 

SF2X-0.0 

SF3X=0.0 

DO  30  I-1,IX 

DO  20  J=2,IY1 

SF«SF+DEP(r,J) 

SFX»SFX+DEP( I , J )*XGRID( I ) 
SF2X»SF2X+DEP( I , J )*XGRID( I )*XGRID( I ) 
SF3X-SF3X+DEP(1,J)*XGRID(1)**3 
20  CONTINUE 
30  CONTINUE 
B(1)-SF 
B(2)-SFX 
B(3)-SF2X 
B(4)=SF3X 
RETURN 
END 


SKETCH  THE  BOTTOM  TOPOGRAPHY  BENEATH  SOME  PROFILE  OF  INTEREST 
SUBROUTINE  SIDEVW(NUM,X1 ,Yl ,X2,Y2) 

COMMON/AF/NTRUC,IDEPM,IPLINE,DC,DBASE,MX,NY,TIDE 

COMMON/AG/XI,YI,DEP,U,V 

DIMENSION  Xl(i:;,Y’<!C).K2(10),Y2(10) 

DIMENSION  XI(134),YH133),DEP(134,133),UC134,133),V(134,133) 

IX- 1 

IXl-2 

IY-1 

IYl-2 

15  WRITE(6,20) 

20  FORMAT('  ENTER  1-9  TO  VIEW  A  PROFILE  ALREADY  SPECIFIED,'/ 

*  '  ENTER  0  TO  DEFINE  AN  ALTERNATE  PROFILE:') 

READ(5,*)  IDUM 
IF(IDUM.EQ.O)  GO  TO  60 
25  WRITE(6,30) 

30  F0RMAT('  ENTER  THE  NUMBER  OF  THE  PROFILE  YOU  WISH  TO  VIEW:') 
READ(5,*)  IPROF 
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O  CJ  O  O  O  <J 


IF(IPROF.GT.NUM)  GO  TO  40 
IF(IPROF.LT.l)  GO  TO  40 
XA-Xl(IPROF) 

XB-X2(IPR0F) 

YA»Y1(IPR0F) 

YB-Y2(IPR0F) 

GO  TO  80 

40  WRITE(6,50)  NUM 

50  F0RMAT('  PROFILE  NO.  MUST  BE  BETWEEN  1  AND  ',15,'  INCLUSIVE.') 
GO  TO  25 

60  WRITE(6,70) 

70  F0RMAT('  ENTER  THE  ENDPOINTS  OF  THE  DESIRED  SECTION,'/ 

*  8X,'  (XA.YA)  AND  (XB.YB):') 

READ(5,*)  XA.YA, XB.YB 
IF(XA.NE.XB)  GO  TO  80 
IF(YA.NE.YB)  GO  TO  80 
GO  TO  60 

SET  PARAMETERS  TO  SKETCH  PROFILE  BETWEEN  (XA.YA)  AND  (XB.YB) 

80  IF(XA.NE.XB)  GO  TO  90 
LAXIS-2 
GO  TO  140 

90  IF(YA.NE.YB)  GO  TO  100 
IAXIS-1 
GO  TO  120 

100  WRITE(6,110) 

no  FORMAT('  ENTER  1  TO  PLOT  BY  X  VALUES,  ENTER  2  FOR  Y  VALUES:') 
READ(5,*)  lAXIS 

SECTION  TO  PLOT  BY  X  VALUES  (IAXIS-1) 

IF( LAXIS  .EQ.  2)  GO  TO  140 

120  IF(XA.LE.XB)  GO  TO  130 
XH0LU=XA 
YHOLD-YA 
XA-XB 
YA-YB 
XB-XHOLD 
YB=YHOLD 

130  ABASE-XA-0.1*(XB-XA) 

BBASE-XB+0 . 1 * ( XB-XA ) 

A-XA 

B-XB 

GO  TO  160 

140  IF(YA.LE.YB)  GO  TO  150 
XHOLD-XA 
YHOLD-YA 
XA-XB 
YA-YB 
XB-XHOLD 
YB-YHOLD 

150  ABASE»YA-0.1*(YB-YA) 

3BASE-YB+0.1*(YB-YA) 

A=YA 

B-YB 

160  AMAX-DEP( 1 , 1 ) 

AM1N-DEP(1,1) 

DO  161  I-1,MX 
DO  161  J-1,NY 
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IF(DEP(I,J)  .GT.  AMAX)  AMAX=DEP( 1,J) 

IF(DEP(I,J)  .LT.  AMIN)  AM1N«DEP(I,J) 

161  CONTINUE 
C=— AMAX 
U»-AMIX 

WRITE(6,170)  C,D 

170  FORMAK'  DEPTH  VARIES  FROM  ',F15.3,'  TO  ',F15.3/ 

*  lOX, 'ENTER  0  IF  OK,  1  TO  CHANGE:') 

READ(5,*)  IDUM 

IF(IDUM.NE.l)  GO  TO  190 
WRITE(6,180) 

180  FORMAT('  ENTER  NEW  MINIMUM  AND  MAXIMUM  DEPTHS:') 
READ(5,*)  D,C 
IF(C.LT.D)  GO  TO  190 
HOLD-C 
C»D 

D-HOLD 

190  CBASE-C-0.1*(D-C) 

DBASE»D+0.1*(D-C) 

H0RINC-(XB-XA)/10. 

IFdAXIS  .EQ.  2)H0RINC-(YB-YA)/10. 

VERINC=(D-C)/10. 

WRITE(6,200)  HORINC 

200  FORMATC'  INCREMENTS  IN  HORIZONTAL  DIRECTION-  ',F12.3/ 

*  '  ENTER  0  IF  OK,  1  TO  CHANGE') 

READ(5,*)  IDUM 
IF(IDUM.NE.l)  GO  TO  220 
WRITE(6,210) 

210  FORMAT ('  ENTER  NEW  VALUE:') 

READ(5,*)  HORINC 
220  WRITE(6,230)  VERINC 

230  FORMATC'  GRID  INCREMENT  IN  VERTICAL  DIRECTION-  ',F12.3/ 

*  '  ENTER  0  IF  OK,  1  TO  CHANGE') 

READ(5,*)  IDUM 
IF(IDUM.NE.l)  GO  TO  240 
WRITE(6,210) 

READ(5,*)  VERINC 
240  H-0.0 
VE-0.0 

250  IF(H.LE.A)  GO  TO  260 
H-H-HORINC 
GO  TO  250 

260  IF(VE.LE.D)  GO  TO  270 
VE-VE-VERINC 
GO  TO  260 

270  CALL  INITT(120) 

CALL  BINITT 

CALL  DWINDO ( ABASE , BBASE , CBASE , DBASE ) 

CALL  MOVEA(A,C) 

CALL  DRAWA<A,D) 

CALL  DRAWA(B,D) 

CALL  DRAWA(B,C) 

CALL  DRAWA(A,C) 

DRAW  GRID 

280  CALL  ANMODE 
VE-VE-VERINC 
IF(VE.GE.D)  GO  TO  280 
IF(VE.LE.(C+VERINC))  GO  TO  290 
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CALL  MOVEA(A,VE) 

CALL  DASUA(B,VE,1) 

GO  TO  280 
290  CALL  ANMODE 
H-H+HORINC 

IF(H.LE.A)  GO  TO  290 
IF(H.GT.(B-HORINC))  GO  TO  300 
CALL  MOVEA(H,C) 

CALL  DASUA(U,D,1) 

GO  TO  290 
300  CALL  ANMODE 

XlNC«(XB-XA)/50. 

YlNC-(YB-YA)/50. 

X*XA 

Y-YA 

C 

C  DRAW  REAL  DEPTH  PROFILE 
C 

310  CALL  ANMODE 

CALL  DEPINP(1X,IX1,IY,IY1,X,Y,DR,UX,VY,DIVU) 

DR— DR 

Q«X 

IF(lAXIS.EQ.l)  GO  TO  320 
Q-Y 

320  CALL  MOVEA(Q,DR) 

330  CALL  ANMODE 
X-X+XINC 
Y-Y+YINC 

IF(X.GE.(XB)  ,AND.  lAXIS  .EQ.  1)  GO  TO  400 
IF(Y.GE.(YB+YINC)  .AND.  lAXIS  .EQ.  2)  GO  TO  400 
CALL  DEPINP(1X,IX1,IY,IYI,X,Y,DR,UX,VY,DIVU) 
DR— DR 
Q-X 

IF(lAXIS.EQ.l)  GO  TO  340 
Q=Y 

340  CALL  DRAWA(Q,DR) 

GO  TO  330 
C 

C  DRAW  BACKGROUND  PROFILE 
C 

400  X=XA 
Y=YA 

410  CALL  ANMODE 
DB— PCUBIC(X) 

Q-X 

IF( lAXIS. EQ.l)  GO  TO  420 
Q-Y 

420  CALL  MOVEA(Q,DB) 

430  CALL  ANMODE 
X-X+XINC 
Y-Y+YINC 

1F(X.GE.(XB)  .AND.  lAXIS  .EQ.  1)  GO  TO  500 
IF(Y.GE.(YB+YINC)  .AND.  lAXIS  .EQ.  2)  GO  TO  500 
DB— PCUBIC(X) 

Q-X 

IF(lAXIS.EQ.l)  GO  TO  440 
q-Y 

440  CALL  DRAWA(Q,DB) 

GO  TO  430 
500  WRITE(6,510) 
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510  FORMATC'  ENTtR  1-9  TO  VIEW  ANOTHER  PROFILE,  ENTER  O', 
*  '  TO  PROCEED.') 

READ(5,*)  IDUM 
IF(IDUM.NE.O)  GO  TO  15 
CALL  FINITT(0,700) 

RETURN 

END 


SUBROUTINE  BounDarY  GRld 

TO  FIND  THE  BOUNDARY  OF  THE  COMPUTATIONAL  REGION 
C  INPUT:  XTIP,  YTIP,  XG,  YG,  THETA,  MX,  XI,  C,  XLB 
C  RETURNED:  XG(1),YG(1) 

C 

SUBROUTINE  BDYGRD( XG , YG , THETA , MX , XI , C , XLB , lOPTCO , COS INE , S INE ) 
COMMON / AB/ N , MM , BETA , OMEGA , G , DS I G , DRHO , WKO 
DIMENSION  XG(N) ,YG(N) ,XI(MX) ,C(4, 134) 

PAI-3. 14159265 

MXl-MX-1 

DINTCl-0. 

IDIRC-l 

IF(BETA  .LT.  0.)  IDIRC— 1 
C 

C  RECALL:  XG(N)  AND  YG(N)  STORED  THE  COORDINATES  OF  THE 
G  REFERENCE  POINT  ON  THE  PHASE  LINE  AS  IT  MOVES  TOWARD 
C  SHORE.  THEREFORE  XG(1)-X0  AND  YG(l)“YO. 

C 

GDNE1=— DSIG 

IFdOPTCO  .EQ.  1)  GO  TO  11 
IFdOPTCO  .EQ.  2)  GO  TO  12 
XXl-XGd) 

YYl-YGd) 

DGDNEl-GDNEl/MM 

DO  100  KK-1,MM 

IF(XX1  .LE.  XLB)  GO  TO  50 

WK1*=WK0 

GO  TO  60 

50  Dl-PCUBIC(XXl) 

CALL  WAVENO( D1 , WKl , GC 1 , PGC 1 , IDEPTH ) 

60  CALL  CURVIL( BETA, WKl, THE1,DGDNE1,DX1,DY1,IOPTCO) 

C 

C  INCREMENT  THE  LOCATION  OF  THE  REFERENCE  POINT 
C 

XX1-XX1+IDIRC*DX1 

DINTCl-DINTCl+DYl 

C 

100  CONTINUE 

YY1-YY1+IDIRC*(DSIG+DINTC1) 

XGd)-XXl 

YGd)-YYl 

RETURN 

11  DX»DSIG*COSINE 
DY-DSIG*SINE 
XG( 1 )-XG( 1 )-DX 
YGd)-YGd)+DY 
RETURN 

12  XGd)-XGd)-DSIG 
YGd)-YGd) 

RETURN 

END 


4.4  EXAMPLES  OF  PROGRAM  RUNNING  SESSIONS 

THE  PROGRAM  FACILITATES  THREE  OPTIONS  OF  RUNNING  SESSIONS.  THEY  ARE 
(i)  INTERACTIVE,  (ii)  SEMI-INTERACTIVE  AND  (ill)  BATCH  MODES.  IN  THIS 
SECTION  WE  USE  THE  CASE  OF  WAVES  AROUND  A  PERPENDICULAR  BREAKWATER  TO 
ILLUSTRATE  WHAT  A  USER  CAN  OBSERVE  ON  THE  SCREEN  OF  A  TERMINAL. 

(i)  INTERACTIVE  MODE 

THIS  MODE  REQUIRES  A  USER  TO  INPUT  DATA  FROM  THE  KEYBOARD  EXCEPT  THE 
FILES  OF  DEPTH.DAT,  LOC.DAT  AND/OR  CURRNX.DAT  AND  CURRNY.DAT.  WHEN  THIS 
MODE  IS  CHOSEN,  THE  PARAMETERS  INPUT  FROM  THE  KEYBOARD  WILL  BE  SAVED  IN 
THE  FILE  OF  IN.DAT  AUTOMATICALLY  FOR  LATER  USE.  THIS  WILL  ELLIMINATE  THE 
EFFORTS  TO  KEY  IN  ALL  PARAMETERS  FROM  TIME  TO  TIME.  A  USER  CAN  EITHER 
CHOOSE  THE  SEMI-INTERACTIVE  MODE  TO  CHANGE  PARAMETERS  WHILE  RUNNING  THE 
JOB  OR  EDIT  THE  FILE  OF  IN.DAT  BEFORE  RUNNING  THE  JOB.  THE  FOLLOWINGS 
WILL  APPEAR  ON  THE  SCREEN  INCLUDING  USER'S  RESPONSES  TO  THE  QUESTIONS. 


$RUN  PARAWAVE 


THIS  IS  A  REMINDER! ! ! 

HAVE  YOU  PREPARED  FILES  OF  DEPTH.DAT  AND  LOC.DAT?? 

HAVE  YOU  PREPARED  FILES  OF  CURRNX.DAT  AND  CURRNY.DAT 
IF  CURRENT  FIELD  IS  TO  BE  CONSIDERED?? 

INPUT  (1-9)  TO  CONTINUE;  0  TO  STOP 

1 

WHICH  MODE  DO  YOU  WANT?? 

2=BATCH;  FROM  THIS  POINT  ON  YOU  CAN  NOT  ALTER  ANY  PARAMETERS 
1=SEMI-INTERACTIVE;  NO  DATA  INPUT  FROM  KEYBOARD,  BUT  AT 

SEVERAL  BREAKPOINTS  PROGRAM  ALLOWS  YOU  TO  ADJUST  PARAMETERS 
0=INTERACTIVE;  ALL  DATA  INPUT  FROM  KEYBOARD  EXCEPT  DEPTH.DAT, 
LOC.DAT,  AND/OR  CURRNX.DAT  AND  CURRNY.DAT.  YOU  CAN  ALSO 
ADJUST  PARAMETERS 

U 

CHOOSE  OPTION  FOR  COORDINATES  (lOPTCO) 

0: CURVILINEAR; 

I : CARTES IAN  (PROPAGATION  DIRECTION); 

2: FIXED  CARTESIAN 

0 

CHOOSE  OPTION  FOR  B.C. 

(IOPTBU:UPWAVE-SIDE  BOUNDARY,  IOPTBD:DOWNWAVE-SIDE  BOUNDARY); 
0:0PEN;  1: SOLID 

0  0 

INPUT:AO,T,ALPHAD,C,TIDE,  FREE  FORMAT 


1.000000 


1 .000000 


20.00000 


32.20000 


O.OOOOOOOE+00 


INPUT :MXGRID,NYGRID; FREE  FORMAT 


7  2 

INPUT :XO,YO,DSIG,DRHO,N,M,S1,S2, DC, DBASE; FREE  FORMAT 

15.00000  -25.00000  0.2500000  0.2500000  250 

260  5.0000001E-02  O.OOOOOOOE+OO  1.000000  O.OOOOOOOE+00 

INPUT; IP;  FREE  FORMAT 

1 

ENTER  CHOICE  FOR  BACKGROUND  DEPTH  INTERPOLATION  : 

IBACKD  =  0  .'PLANE  BEACH  WITH  SLOPE  -  0.01  (DEBUGGING) 

=■  1  : CUBIC  SPLINE  OVER  AVG.  DEPTH  AT  EACH  ROW 
=■  2  :  LEAST  SQUARE  CUBIC  EQN.  IN  X-DIRECTION. 

ENTER  IBACKD: 

2 


ENTER  CHOICE  FOR  ACTUAL  DEPTH  INTERPOLATION  ; 

IREALD  =  0  : PLANE  BEACH  WITH  SLOPE  =  0.01  (DEBUGGING) 

=  1  : LINEAR  AVG.  OF  A  SURROUNDING  GRID  POINTS. 

=  2  ;USES  A  16-POINT  GRID  FOR  A  CUBIC  SPLINE  ACROSS 
EACH  OF  A  ROWS  AND  THEN  THE  COLUMNS  OF  THE  DESIRED  Y 
=■  3  :LIK£  IREALD-2  EXCEPT  THE  SPLINE  IS  DONE  ON 
THE  COLUMNS  FIRST  AND  THEN  THE  ROW  OF  THE  DESIRED  X 
>■  A  :A  LEAST  SQUARE  FIT  OF  THE  16-POINT  GRID  TO 
A  b-COEFFICIENT  DEPTH  EXPRESSION 

ENTER  IREALD: 

2 

INPUT: IDEPM.IPLINE;  FREE  FORMAT 

0  0 

INPUT: I FRCT , XDAM  P , FRCT 

0  O.OOOOOOOE+00  O.OOOOOOOE+00 
ENTER  IBREAK  -  0  :NO  WAVE  BREAKING, 

=•  I  :WAVE  BREAKING  IS  CONSIDERED 


0 

ENTER  ICURRN  -  1  : PRESENCE  OF  CURRENT  FIELD 

-  0  :NO  PRESENCE  OF  CURRE.NT  FIELD. 


0 

ENTER  IBKWTR  -  0  :NO  PRESENCE  OF  BREAKWATER; 

-  #  : TOTAL  NO.  OF  BREAKWATERS,  MAX.  NO.  -  5 

1 

ENTER  TOTAL  POINTS  OF  LINEAR  SEGMENTS  OF  BREAKWATER  NO.  -  1 

AND  ITS  COORDINATES,  FIRST  POINT  STARTS  FROM  THE  TIP  OF  THE  BREAKWATER. 

NO.  OF  POINTj  CAN  BE  FROM  2  TO  10 

INPUT  IBKWPT(I) ,XBW(I,L) ,BYW( I,L),L»1 ,IBKWPT(I) 

2  15.00000  O.OUOOOOOE+OO  O.OOOOOOOE+00  O.OOOOOOOE+00 

ENTER  TITLE,  MAX.  OF  80  CHARACTERS 


CERC  PERPENDICULAR  BREAKWATER 

INPUT  THE  NUMBER  OF  PROFILES  TO  BE  INTERPOLATED, 

UP  TO  10  PROFILES  IS  ALLOWED  ON  ONE  RUN 

2 

DO  YOU  WISH  TO  REVIEW  THE  DEFAULT  PARAMETERS? 

ENTER  1  FOR  YES,  0  FOR  NO 

1 

THE  WAVE  CONDITIONS  IN  THE  DEEP  WATER  REGION  ARE  AS  FOLLOWS 
PERIOD*  1.0000 
DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

INCIDENT  ANGLE  -  0.3491  RAD.  -  20.0000  DEG. 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

ACCELERATION  DUE  TO  GRAVITY  *  32.2000 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

WAVE  AMPLITUDE  *  1.0000 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

TIDE  LEVEL  *  0.0000 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

REFERENCE  POINT  FOR  REFERENCE  LINE: 

X'COORDINATE  =  15.0000 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 

0 

Y-COORDINATE  =  -25.0000 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

OPTION  OF  COORDINATES  =  0 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

OPTION  OF  UPWAVE-SIDE  BOUNDARY  CONDITION  =  0 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

OPTION  OF  DOWNWAVE-SIDE  BOUNDARY  CONDITION  =  0 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 

0 


DESCRIPTION  OF  NEAR  FIELD  : 

LAY-OUT  OF  GRID  MESH: 

NUMBER  OF  NODES  IN  X-DIRECTlON  MX-1  =  7 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 

0 
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NUMBER  OF  NODES  IN  Y-DIRECTION  NY-2  -  2 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

THE  ESTIMATED  SLOPE  AT  X( 1 )  (BASELINE)  -  0.05000 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

THE  ESTIMATED  SLOPE  AT  X(MX-l)  -  0.00000 

DEPTH  AT  CONSTANT  REGION  =  1.00000 

DO  YOU  WISH  TO  C;iANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

DEPTH  AT  BASELINE  -  0.00000 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  F(  R  NO 
0 


OTHER  COMPUTATIONAL  PARAMETERS  : 

NUMBER  OF  POINTS  ON  REFERENCE  LINE  TO  LANDWARD  (NN)  =  260 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

NUMBER  OF  POINTS  TO  SEAWARD  (N)  =  250 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

NUMBER  OF  MARCHING  STEPS  (M)  -  260 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  I  FOR  YES,  0  FOR  NO 
0 

NUMBER  OF  NODES  TO  BE  USED  IN  CALC.(NTRUC)  -  250 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  I  FOR  YES,  0  FOR  NO 
0 

STEP  SIZE  ALONG  MARCHING  DIR.  (DELTA  SIGMA)  =  0.2500 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

STEP  SIZE  ALONG  TRANSVERSIAL  DIR. (DELTA  RHO)  =  0.2500 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

FRICTION  CONSIDERATION  (IFRCT)  -  0 

IFRCT  -  1  MEANS  CONSIDER  FRICTION 
IFRCT  -  0  MEANS  NEGLECT  BOTTOM  FRICTION 
DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

SCAN  EVERY  IP  STEPS;  IP  »  1 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

PRINT  MODE  -  BACKGROUND  DEPTH  (IDEPM)  =  0 

IDEPM  -  1  MEANS  OUTPUT  BACKGROUND  DEPTHS 
IDEPM  -  0  MEANS  DO  NOT  OUTPUT  DEPTHS. 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
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0 

PRINT  MODE  -  REFERENCE  LINE  (IPLINE)  -  0 

IPLINE  -  1  MEANS  OUTPUT  REFERENCE  LINE 
IPLINE  -  0  MEANS  DO  NOT  OUTPUT  ORIGINAL  LINE 
DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

ENTER  IBREAK:  -0  FOR  NO  WAVE  BREAKING, 

»1  FOR  BREAKING  BUT  DO  NOT  OUTPUT  BREAKING  DATA 
=2  FOR  BREAKING  AND  DATA  FILE  OF  BREAK  LOCS+AMPS. 

PRESENT  IBREAK  -  0 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

ICURRN  -  1  :  PRESENCE  OF  CURRENT  FIELD, 

•  0  ;  NO  CURRENT  FIELD.  0 
DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

ENTER  CHOICE  FOR  DEPTH  INTERPOLATION  SCHEMES: 

BACKGROUND  DEPTH;  IBACKD  -  0  IS  FOR  PLANE  BEACH  WITH 
SLOPE  -  0.01  (USED  FOR  DEBUGGING). 

IBACKD*!  IS  FOR  CUBIC  SPLINE  OVER  AVG.  DEPTH  AT  EACH  ROW 
IBACKD-2  IS  LEAST  SQUARE  CUBIC  EQN.  IN  X-DIRECTION. 
PRESENT  IBACKD  =  2 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 


ACTUAL  DEPTH;  IREALD-0  IS  PLANE  BEACH  WITH  SLOPE 
EQUAL  0.01  (USED  FOR  DEBUGGING). 

IREALD=l  IS  LINEAR  AVG.  OF  4  SURROUNDING  GRID  POINTS. 

IR£ALD=2  USES  A  16  POINT  GRID  FOR  A  CUBIC  SPLINE  ACROSS 
EACH  OF  4  ROWS  AND  THEN  ONCE  DOWN  THE  INTERPOLATED 
DEPTHS  ALONG  THE  DESIRED  Y-VALUE. 

IREALD-3  IS  LIKE  IREALD=2  EXCEPT  THE  SPLINE  IS  DONE  ON 
THE  COLUMNS  .uVD  THEN  THE  ROW  OF  THE  DESIRED  X-VALUE. 

IREALD-4  IS  A  LEAST  SQUARE  FIT  OF  THE  16  POINT  GRID  TO 
A  6  COEFFICIENT  DEPTH  EXPRESSION. 

PRESENT  IREALD  -  2 

DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

INPUT  TWO  END  POINTS  OF  DESIRED  PROFILE  N0.=  1: 

XI, Y1  AND  X2,Y2 

12.50000  -15.00000  12.50000  20.00000 

INPUT  TWO  END  POINTS  OF  DESIRED  PROFILE  NO.=  2: 

XI, Y1  AND  X2,Y2 

9.000000  -15.00000  9.000000  20.00000 

DO  YOU  WANT  TO  REVIEW  THE  DEPTH  AND  CURRENT  DATA? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

(  34.777  ,  30.149  )  IS  THE  FARTHEST  DISTANCE  FROM  SHORE 

WHERE  CALCULATIONS  CAN  BE  DONE  FOR  N=  250 
WARING:  MAX.  N  IS  500 
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DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 
ENTER  1  FOR  YES,  0  FOR  NO 
0 


CALCULATION  HAS  BEEN  CONTINUING  FOR  M  •  260  AND  NEW  N  •=  250 


(  1.447  ,  -21.708  )  IS  THE  CLOSEST  DISTANCE  FROM  SHORE 

WHERE  CALCULATIONS  CAN  BE  DONE  FOR  M»  260 
WARING:  MAX.  M  IS  1500 


DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 
ENTER  1  FOR  YES,  0  FOR  NO 
0 


CALCULATION  HAS  BEEN  CONTINUING  FOR  NEW  M  =  260  AND  N  =  250 


THE  NUMBER  OF  NODES  IS  250  ENTER  NEW  NUMBER 
DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

N=»  250  M-  260 

TO  VIEW  THE  TOPOGRAPHY  BENEATH  ANY  SECTIONS 
ENTER  1,  ELSE  ENTER  0. 

CAUTION:  IF  YOUR  FACILITY  IS  NOT  GRAPHICALLY  COMPATIBLE  TO 
TEKTRONIX  MODEL  4014-1,  ENTER  0 
0 

MARCHED  STEP-  1 

MARCHED  STEP-  2 

MARCHED  STEP-  3 


MARCHED  STEP- 

70 

MARCHED  STEP- 

71 

MARCHED  STEP- 

72 

XP-  12.500 

YP- 

-14.998 

AMPLITUDE- 

0.996 

DEPTH- 

0.625 

PHASE- 

MARCHED  STEP- 

73 

XP-  12.500 

YP- 

-14.748 

AMPLITUDE- 

0.996 

DEPTH- 

0.625 

PHASE- 

MARCHED  STEP- 

74 

XP-  12.500 

•  • 

YP- 

• 

-14.497 

• 

AMPLITUDE- 

• 

0.996 

• 

DEPTH- 

• 

0.625 

• 

PHASE- 

• 

•  • 

•  • 

MARCHED  STEP- 

• 

99 

• 

• 

• 

• 

• 

• 

• 

t 

• 

• 

• 

• 

XP-  12.500 

YP- 

-8.248 

AMPLITUDE- 

0.992 

DEPTH- 

0.625 

PHASE- 

MARCHED  STEP- 

100 

XP-  12.500 

YP- 

-7.998 

AMPLITUDE- 

0.992 

DEPTH- 

0.625 

PHASE- 

.“•URCHED  STEP- 

101 

XP-  12.500 

YP- 

-7.748 

AMPLITUDE- 

0.991 

DEPTH- 

0.625 

PHASE- 

8.473 

8.592 

8.711 

11.668 

11.787 

11.905 
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MARCHED  STEP' 


MARCHED 

STEP- 

102 

ENCOUNTERED  BRKWTR  NO.  1 

BRKWTR 

ANGLE 

0.000000 

XP- 

12.500 

YP-  -7.498  AMPLITUDE-  0.991 

DEPTH- 

0.625 

PHASE-  12.023 

MARCHED 

STEP- 

103 

ENCOUNTERED  BRKWTR  NO.  1 

BRKWTR 

ANGLE 

0.000000 

XP- 

12.500 

YP-  -7.248  AMPLITUDE-  0.991 

DEPTH- 

0.625 

PHASE-  12.141 

MARCHED 

STEP- 

104 

ENCOUNTERED  BRKWTR  NO.  1 

BRKWTR 

ANGLE 

0.000000 

XP- 

• 

12.500 

• 

YP-  -6.998  AMPLITUDE-  0.991 

•  •  •  • 

DEPTH- 

• 

0.625 

t 

PHASE-  12.260 

• 

• 

• 

MARCHED 

• 

• 

STEP- 

•  •  •  • 

210 

• 

• 

• 

• 

• 

• 

ENCOUNTERED  BRKWTR  NO.  1 

BRKWTR 

ANGLE 

0.000000 

XP- 

12.500 

YP-  19.503  AMPLITUDE-  0.996 

DEPTH- 

0.625 

PHASE-  25.005 

MARCHED 

STEP- 

211 

ENCOUNTERED  BRKWTR  NO.  1 

BRKWTR 

ANGLE 

0.000000 

XP» 

12.500 

YP-  19.752  AMPLITUDE-  1.000 

DEPTH- 

0.625 

PHASE-  25.122 

MARCHED 

STEP- 

212 

ENCOUNTERED  BRKWTR  NO.  1 

BRKWTR 

ANGLE 

0.000000 

XP- 

12.500 

YP-  19.807  AMPLITUDE-  1.000 

DEPTH- 

0.625 

PHASE-  25.147 

MARCHED 

STEP- 

213 

ENCOUNTERED  BRKWTR  NO.  1 

BRKWTR 

ANGLE 

0.000000 

MARCHED 

STEP- 

214 

ENCOUNTERED  BRKWTR  NO.  1 

BRKWTR 

ANGLE 

0.000000 

MARCHED 

STEP- 

215 

• 

• 

ENCOUNTERED  BRKWTR  NO.  1 

•  •  «  • 

BRKWTR 

• 

ANGLE 

• 

0.000000 

• 

• 

0 

MARCHED 

• 

• 

STEP- 

•  •  •  • 

•  •  •  • 

258 

• 

• 

• 

• 

• 

• 

ENCOUNTERED  BRKWTR  NO.  1 

BRKWTR 

ANGLE 

0.000000 

MARCHED 

STEP- 

259 

ENCOUNTERED  BRKWTR  NO.  1 

BRKWTR 

ANGLE 

0.000000 

MARCHED 

STEP- 

260 

ENCOUNTERED  BRKWTR  NO.  1 

BRKWTR 

ANGLE 

0.000000 

ICOUNT  = 

=  260 

FORTRAN 

STOP  (NOTE:  THIS  SHOWS  THE  COMPLETION  OF  THE  JOB) 

$ 


(ii)  SEMI-INTERACTIVE  MODE 

THIS  MODE  DOES  NOT  REQUIR  A  USER  TO  INPUT  DATA  FROM  THE  KEYBOARD. 
HOWEVER,  DURING  THIS  SESSION  OF  JOB  PROGRAM  ALLOWS  A  USER  TO  ALTER 
PARAMETERS  AT  SEVERAL  BREAKPOINTS.  THIS  SESSION  LOOKS  VERY  SIMILAR  TO 
THAT  IN  AN  INTERACTIVE  MODE  BUT  MUCH  SIMPLIER  AND  EASIER.  THE  FOLLOWINGS 
ARE  WHAT  A  USER  CAN  SEE  ON  THE  SCREEN  INCLUDING  HIS/HER  RESPONSES  TO 
THE  QUESTIONS.  (NOTE:  WE  CHOOSE  NOT  TO  REVIEW  THE  PARAMETERS.) 


^.RUN  PARAWAVE 


THIS  13  A  REMINDER! ! ! 

HAVE  YOU  PREPARED  FILES  OF  DEPTH.DAT  AND  LOG. DAT?? 


HAVE  YOU  PREPARED  FILES  OF  CURRNX.DAT  AND  CURRNY.DAT 
IF  CURRENT  FIELD  IS  TO  BE  CONSIDERED?? 

INPUT  (1-9)  TO  CONTINUE;  0  TO  STOP 

1 

WHICH  MODE  DO  YOU  WANT?? 

2-BATCH;  FROM  THIS  POINT  ON  YOU  CAN  NOT  ALTER  ANY  PARAMETERS 
1 -SEMI- INTERACTIVE;  NO  DATA  INPUT  FROM  KEYBOARD,  BUT  AT 

SEVERAL  BREAKPOINTS  PROGRAM  ALLOWS  YOU  TO  ADJUST  PARAMETERS 
0- INTERACTIVE;  ALL  DATA  INPUT  FROM  KEYBOARD  EXCEPT  DEPTH.DAT, 
LOC.DAT,  AND/OR  CURRNX.DAT  AND  CURRNY.DAT.  YOU  CAN  ALSO 
ADJUST  PARAMETERS 

1 

DO  YOU  WISH  TO  REVIEW  THE  DEFAULT  PARAMETERS? 

ENTER  1  FOR  YES,  0  FOR  NO 

0 

DO  YOU  WANT  TO  REVIEW  THE  DEPTH  AND  CURRENT  DATA? 

ENTER  1  FOR  YES,  0  FOR  NO 
0 

(  34.777  ,  30.149  )  IS  THE  FARTHEST  DISTANCE  FROM  SHORE 

WHERE  CALCULATIONS  CAN  BE  DONE  FOR  N-  250 
WARING;  MAX.  N  IS  500 


DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 
ENTER  :  FOR  YES,  0  FOR  NO 
0 


CALCULATION  HAS  BEEN  CONTINUING  FOR  M  -  260  AND  NEW  N  =  250 


(  1.447  ,  -21.708  )  IS  THE  CLOSEST  DISTANCE  FROM  SHORE 

WHERE  CALCULATIONS  CAN  BE  DONE  FOR  M-  260 
WARING:  MAX.  M  IS  1500 


DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 
ENTER  1  FOR  YES,  0  FOR  NO 
0 


CALCULATION  HAS  BEEN  CONTINUING  FOR  NEW  M  -  260  AND  N  -  250 


THE  NUMBER  OF  NODES  IS  250  ENTER  NEW  NUMBER 
DO  YOU  WISH  TO  CHANGE  THIS  VALUE  ? 

ENTER  1  FOR  YES,  0  FOR  NO 

0 

N-  250  M-  260 

TO  VIEW  THE  TOPOGRAPHY  BENEATH  ANY  SECTIONS 
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ENTER  1,  ELSE  ENTER  0. 

CAUTION:  IF  YOUR  FACILITY  IS  NOT  GRAPHICALLY  COMPATIBLE  TO 
TEKTRONIX  MODEL  4014-1,  ENTER  0 
0 

MARCHED  STEP-  1 

MARCHED  STEP-  2 

MARCHED  STEP-  3 


•  • 

•  • 

•  • 

MARCHED  STEP- 

• 

• 

70 

MARCHED  STEP- 

71 

MARCHED  STEP- 

72 

XP-  12.500 

YP-  -14.998  AMPLITUDE- 

0.996 

DEPTH- 

0.625 

PHASE-  8.473 

MARCHED  STEP- 

73 

XP-  12.500 

YP-  -14.748  AMPLITUDE- 

0.996 

DEPTH- 

0.625 

PHASE-  8.592 

MARCHED  STEP- 

74 

XP-  12.500 

•  • 

YP-  -14.497  AMPLITUDE- 

•  •  • 

0.996 

• 

DEPTH- 

• 

0.625 

• 

PHASE-  8.711 

• 

•  «  •  *  • 

•  •  •  •  • 

MARCHED  STEP-  99 

• 

• 

• 

• 

• 

• 

• 

• 

XP-  12.500 

YP-  -8.248  AMPLITUDE- 

0.992 

DEPTH- 

0.625 

PHASE-  11.668 

MARCHED  STEP- 

100 

XP=  12. 500 

YP-  -7.998  AMPLITUDE- 

0.992 

DEPTH- 

0.625 

PHASE-  11.787 

MARCHED  STEP- 

101 

XP-  12.500 

YP-  -7,748  AMPLITUDE- 

0.991 

DEPTH- 

0.625 

PHASE-  11.905 

MARCHED  STEP- 

102 

ENCOUNTERED  BRKWTR  NO. 

1 

BRKWTR 

ANGLE 

0.000000 

XP-  12.500 

YP-  -7.498  AMPLITUDE- 

0.991 

DEPTH- 

0.625 

PHASE-  12.023 

MARCHED  STEP- 

103 

ENCOUNTERED  BRKWTR  NO. 

1 

BRKWTR 

ANGLE 

0.000000 

XP-  12.500 

YP-  -7.248  AMPLITUDE- 

0.991 

DEPTH- 

0.625 

PHASE-  12.141 

MARCHED  STEP- 

104 

ENCOUNTERED  BRKWTR  NO. 

1 

BRKWTR 

ANGLE 

0.000000 

XP-  12.500 

0  0 

YP-  -6.998  AMPLITUDE- 

•  •  • 

0.991 

• 

DEPTH- 

• 

0.625 

PHASE-  12.260 

• 

0  0 

0  0 

MARCHED  STEP- 

•  «  • 

•  «  * 

210 

• 

• 

• 

• 

* 

• 

• 

• 

ENCOUNTERED  BRKWTR  NO. 

1 

BRKWTR 

ANGLE 

0.000000 

XP=  12.500 

YP-  19.503  AMPLITUDE- 

0.996 

DEPTH- 

0.625 

PHASE-  25.005 

MARCHED  STEP- 

211 

ENCOUNTERED  BRKWTR  NO. 

1 

BRKWTR 

ANGLE 

0.000000 

XP-  12.500 

YP-  19.752  AMPLITUDE- 

1.000 

DEPTH- 

0.625 

PHASE-  25.122 

MARCHED  STEP- 

212 

ENCOUNTERED  BRKWTR  NO. 

1 

BRKWTR 

ANGLE 

0.000000 

XP-  12.500 

YP-  19.807  AMPLITUDE- 

1.000 

DEPTH- 

0.625 

PHASE-  25.147 

MARCHED  STEP- 

213 

ENCOUNTERED  BRKWTR  NO. 

1 

BRKWTR 

ANGLE 

0.000000 

MARCHED  STEP- 

214 

ENCOUNTERED  BRKWTR  NO. 

1 

BRKWTR 

ANGLE 

0.000000 

MARCHED  STEP- 

215 

ENCOUNTERED  BRKWTR  NO. 

1 

BRKWTR 

ANGLE 

0.000000 

•  • 

■  •  • 

• 

. 

. 

. 

•  •  •••  •  ••• 

MARCHED  STEP-  258 

ENCOUNTERED  BRKWTR  NO.  1  BRKWTR  ANGLE  0.000000 
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MARCHED  STEP-  259 

ENCOUNTERED  BRKWTR  NO.  1  BRKWTR  ANGLE  0.000000 

MARCHED  STEP-  260 

ENCOUNTERED  BRKWTR  NO.  1  BRKWTR  ANGLE  0.000000 

ICOUNT  =  260 

FORTRAN  STOP  (NOTE:  THIS  SHOWS  THE  COMPLETION  OF  THE  JOB) 

$ 


(iii)  BATCH  MODE 

THIS  MODE  DOES  NOT  ALLOW  ANY  INTERACTION  BETWEEN  THE  PROGRAM  AND 
A  USER  ONCE  THE  JOB  IS  IN  PROGRESS.  THS  FOLLOWING  ARE  WHAT  A  USER  CAN 
SEE  ON  THE  SCREEN  OF  A  TERMINAL. 


$RUN  PARAWAVE 


THIS  IS  A  REMINDER! ! ! 

HAVE  YOU  PREPARED  FILES  OF  DEPTH.DAT  AND  LOC.DAT?? 

HAVE  YOU  PREPARED  FILES  OF  CURRNX.DAT  AND  CURRNY.DAT 
IF  CURRENT  FIELD  IS  TO  BE  CONSIDERED?? 

INPUT  (1-9)  TO  CONTINUE;  0  TO  STOP 

1 

WHICH  MODE  DO  YOU  WANT?? 

2-BATCH;  FROM  THIS  POINT  ON  YOU  CAN  NOT  ALTER  ANY  PARAMETERS 
1 -SEMI-INTERACTIVE;  NO  DATA  INPUT  FROM  KEYBOARD,  BUT  AT 

SEVERAL  BREAKPOINTS  PROGRAM  ALLOWS  YOU  TO  ADJUST  PARAMETERS 
0- INTERACTIVE;  ALL  DATA  INPUT  FROM  KE'^BOARD  EXCEPT  DEPTH.DAT, 
LOC.DAT,  AND/OR  CURRNX.DAT  AND  CURRN/.DAT.  YOU  CAN  ALSO 
ADJUST  PARAMETERS 

2 


PLEASE  WAIT! ! 
PROGRAM  IS  RUNNING. 

ICOUNT  -  260 

FORTRAN  STOP 
$ 
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Appendix  A 

Input  Data  Files  for  Normal  Incident  Wave  Propagating 
Over  a  Submerged  Shoal 

(i)  DEPTH.DAT 
(ii)  LOG. DAT 
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(i)  DEPTH.DAT 


0 


0.A30 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.43C 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

C.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.'30 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.4'<0 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.4  30 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

u .  4  30 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

o 

-1 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

O 

o 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

^.430 

0.4  30 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

':.4  3.'' 

0.430 

0.430 

0.430 

0.430 

U.430 

IJ.430 

0.430 

O.430 

u.4  30 

';.^3U 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.4  30 

■').-4  30 

0.430 

f'.4'0 

.  ~  V 

I?") 


0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.43C 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

o 

o 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.4J0 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

W.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.367 

0.330 

0.31o 

0.330 

0.367 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.4  30 

0.342 

0.282 

0.246 

0.234 

0.246 

0.282 

0.342 

0.4  30 

0.430 

0.430 

0.430 

0.4  30 

O.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.367 

fi.282 

0.222 

0.187 

0.176 

0.187 

0.222 

0.282 

0.367 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.330 

0.246 

0.187 

17A 


0.153 

0.141 

0.153 

0.187 

0.246 

0.330 

c 

o 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.318 

0.234 

0.176 

0.141 

0.130 

0.141 

0.1/6 

0.234 

0.318 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.330 

0.246 

0.187 

0.153 

0.141 

0.153 

0.187 

0.246 

0.330 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.367 

0.282 

0.222 

0.187 

0.176 

0.187 

0.222 

0.282 

0.367 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.342 

0.282 

0.246 

0.234 

0.246 

0.282 

0.342 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.367 

0.330 

0.318 

0.330 

0.367 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0 . 4  30 

0.-/30 

O.A'^O 

O.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.4  30 

0.430 

n.  4  30 

n.430 

0.4  30 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

').4  30 

-.430 

0.4  30 

').‘<30 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.4  30 

'1.4  30 

C.4  30 

,'.4  30 

''.-.50 

0.430 

U.430 

0.430 

0.430 

','.4  30 

0.430 

';.4  30 

0.4  30 

'0.4  30 

',I.4  3(: 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

0.430 

'■'•.4  30 

0.430 

'0.430 

('.-:.3  0 

0.430 

'J.430 

0.4  30 

/;.4  3^' 

'■.-*30 

.-4  30 

.-^3' 

.  .  '  .  1 

O.430 

0.4  30 

0.-.30 

0.430 

0.430 

0.430 

0.430 

0.430 

11.4  30 

0. 4  30 

0.430 

0.-.30 

0.430 

0.430 

0.430 

0.4  30 

0.430 

0.4  30 

'J.h3Ci 

0.-.30 

•0.4  30 

0.430 

0.430 

0.430 

0.4  30 

0.430 

0.430 

0.-4  30 

0.430 

'..430 

1 ) .  -*  30 

0.4  30 

■'.430 

0 . 4  30 

0.4  30 

0.4  30 

0.430 

1.4  30 

').430 

' ' .  30 

'  * .  4  3Ci 

".430 

0 . 4  30 

0.430 

0.430 

0.4  30 

0.430 

0.430 

0.430 

0.4  30 

0.43C 

I'.iO:' 

'.4  30 

.4  30 

0.430 

f'.4  30 

'  ... 

'■•■.30 

.■>V- 

'..4  V' 

.  ^  O' 

...  0 

'i.4  30 

0 . 430 

'I...3U 

0.4  30 

'.4  30 

0...30 

o.*.3;i 

'1.4  30 

(I.  4  3i) 

.4  3' 

! 


0.430  0.430  0.430  0.430  0.430  0.430  0.430  0.430  0.430 

0.430  0.430  0.430 

0.430  0.430  0.430  0.430  0.430  0.430  0.430  0.430  0.430 

0.430  0.430  0.430  0.430  0.430  0.430  0.430  0.430  0.430 

0.430  0.430  0.430 


0.430 

0.430 

0.430 
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Appendix  B 

Input  Data  Files  for  Obliquely  Incident 
Wave  Propagating  Over  a  Submerged  Shoal 
on  a  Sloping  Bottom 

(i)  DEPTH.DAT 
(ii)  LOG. DAT 
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0 


(i)  DEPTH.DAT 


0. 

0. 

0. 

0. 

0. 

0 

0 

0 

0 

0 

0. 

A 

0. 

0. 

0. 

0. 

0 

0 

0 

0 

0 

U  • 

.02 

.02 

.02 

.02 

.02 

0.02 

0.02 

0.02 

0.02 

0.02 

.02 

.02 

.02 

.02 

.02 

.02 

0.02 

0.02 

0.02 

0.02 

0.02 

0.1 

0.1 

0.1 

0.1 

0.1 

.1 

.1 

.1 

.1 

.1 

0.1 

0.1 

0.1 

0.1 

0.1 

0.1 

.1 

.1 

.1 

.1 

.1 

.2 

.2 

.2 

.2 

.2 

0.2 

0.2 

0.2 

0.2 

0.2 

.2 

.2 

.2 

.2 

.2 

0.2 

0.2 

0.2 

0.2 

0.2 

•  L 

0.2b 

0.26 

0.26 

0.26 

0.26 

.26 

.26 

.26 

.26 

.26 

0.26 

0.26 

0.26 

0.26 

0.26 

0.26 

.26 

.26 

.26 

.26 

.26 

0.2803 

0.2803 

0.2803 

0.2803 

0.2803 

0.2803 

0.2803 

0.2803 

0.2803 

0.2803 

0.2803 

0.2803 

0.2803 

0.2803 

0.2803 

0.2803 

0.2803 

0.2803 

0.2803 

0.2803 

0.2803 

0.2903 

0.2903 

0.2903 

0.2903 

0.2903 

0.2903 

.2758 

.2491 

.2313 

.2210 

.2176 

0.2903 

.2210 

.2313 

.2491 

.2758 

0.2903 

0.2903 

0.2903 

0.2903 

0.2903 

.3003 

.3003 

.3003 

.3003 

.3003 

0.2591 

0.2276 

0.2048 

0.1893 

0.1803 

0.1773 

.3003 

0.1803 

0.1893 

0.2048 

0.2276 

.2591 

.3003 

.3003 

.3003 

.3003 

0.3103 

0.3103 

0.3103 

0.3103 

0.2639 

.2262 

.1982 

.1773 

.1631 

.1548 

.1520 

0.3103 

.1548 

.1631 

.1773 

.1982 

0.2262 

0.2639 

0.3103 

0.3103 

0.3103 

.3203 

.3203 

.3203 

0.2891 

0.2432 

0.2083 

0.1819 

0.1623 

0.1489 

0.1410 

.1384 

.3203 

0.1410 

0.1489 

0.1623 

0.1819 

0.2083 

0.2432 

0.2891 

.3203 

.3203 

0.3303 

0.3303 

0.3303 

.2795 

.2359 

.2025 

.1769 

.1580 

.1450 

.1373 

0.1348 

0.3303 

.1373 

.1450 

.1580 

.1769 

.2025 

.2359 

.2795 

0.3303 

0.3303 

.3403 

.3403 

.3403 

0.2832 

0.2403 

0.2073 

0.1820 

0.1633 

0.1504 

0.1428 

.1403 

.3403 

0.1428 

0.1504 

0.1633 

0.1820 

0.2073 

0.2403 

0.2832 

.3403 

.3403 

0.3503 

0.3503 

0.3503 

.2995 

.2559 

.2225 

.1969 

.1780 

.1650 

.1573 

0.1548 

0.3503 

.1573 

.1650 

.1780 

.1969 

.2225 

.2559 

.2995 

0.3503 

0.3503 

.3603 

.3603 

.3603 

0.3291 

0.2832 

0.2483 

0.2219 

0.2023 

0. 1889 

0.1810 

.1784 

.3603 

0.1810 

0.1889 

0.2023 

0.2219 

0.2483 

0.2832 

0.3291 

.3603 

.3603 

0.3703 

0.3703 

0.3703 

0.3703 

.3239 

.2862 

.2580 

.2373 

.2231 

.2148 

0.2120 

0.3703 

.2148 

.2231 

.2373 

.2580 

.2862 

.3239 

0.3703 

0.3703 

0.3703 

.3803 

.3803 

.3803 

.3803 

.3803 

0.3391 

0.3076 

0.2848 

0.2693 

0.2603 

.2573 

.3803 

0.2603 

0.2693 

0.2848 

0.3076 

0.3391 

.3803 

.3803 

.3803 

.3803 

0.3903 

0.3903 

0.3903 

0.3903 

0.3903 

0.3903 

.3758 

.3491 

.3313 

.3210 

0.3176 

0.3903 

.3210 

.3313 

.3491 

.3758 

0.3903 

0.3903 

0.3903 

0.3903 

0.3903 

.4003 

.4003 

.4003 

.4003 

.4003 

0.4003 

0.4003 

0.4003 

0.4003 

0.4003 

0.4003 

.4003 

0.4003 

0.4003 

0.4003 

0.4003 

.4003 

.4003 

.4003 

.4003 

.4003 

.45 

.45 

.45 

.45 

.45 

0 . 4  5 

■-..45 

0.4  5 

'1.45 

4.45 

.45 

0.45 

.45 

.45 

.45 

.45 

0.45 

0.45 

0.45 

0.45 

'■'.45 

u45 

'  j .  4  5 

^1.45 

.-•5 

.-tb 

. 5 

.  .  5 

.  .  5 

.  ■«  J 

.45 

0.45 

0.45 

0.45 

0.45 

0.45 

.45 

.45 

'  5 

•  t; 
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(li)  LOC.DAT 


Appendix  C 

Input  Data  Files  for  the  CERC  Field  Experiments 

(i)  DEPTH.DAT  (October  16,  1982) 

(ii)  DEPTH.DAT  (October  27,  1982) 

(iii)  LOG. DAT  (October  16  and  27,  1982) 
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(i)  DEPTH.DAT  (Oct.  16,  1982) 


2 


-6.44 

-4.22 

-3.19 

-1.69 

-0.47 

1.00 

1.82 

1.93 

1.97 

2.05 

2.07 

1.80 

1.92 

2.24 

2.56 

2.95 

3.16 

3.27 

3.32 

3.38 

3.43 

3.51 

3.60 

3.71 

3.81 

3.92 

4.08 

4.25 

4.42 

4.45 

4.68 

4.85 

5.02 

5.15 

5.25 

5.34 

5.46 

5.58 

5.70 

5.79 

5.89 

5.97 

6.07 

6.17 

6.26 

6.33 

6.40 

6.49 

6.58 

6.66 

6.74 

6.82 

6.92 

7.01 

7.09 

7.15 

7.22 

7.28 

7.36 

7.44 

7.51 

7.58 

7.64 

7.73 

7.80 

7.87 

7.92 

7.97 

8.04 

8.12 

8.19 

8.25 

8.32 

8.39 

8.42 

-6.52 

-3.99 

-3.06 

-1.81 

-0.70 

0.97 

1.86 

1.87 

1.89 

1.96 

2.03 

1.75 

1.93 

2.26 

2.56 

2.95 

3.16 

3.26 

3.31 

3.37 

3.42 

3.50 

3.60 

3.71 

3.80 

3.91 

4.07 

4.25 

4.42 

4.55 

4.67 

4.84 

5.01 

5.14 

5.24 

5.33 

5.45 

5.58 

5.70 

5.79 

5.88 

5.96 

6.06 

6.17 

6.26 

6.32 

6.39 

6.48 

6.57 

6.66 

6.74 

6.81 

6.91 

7.01 

7.09 

7.15 

7.22 

7.28 

7.37 

7.44 

7.52 

7.58 

7.64 

7.73 

7.81 

7.87 

7.92 

7.97 

8.04 

8.12 

8.19 

8.25 

8.31 

8.39 

8.43 

-6.41 

-3.93 

-3.08 

-1.88 

-0.85 

0.79 

1.84 

1.76 

1.74 

1.74 

1.81 

1.70 

1.97 

2.28 

2.57 

2.92 

3.13 

3.23 

3.29 

3.35 

3.41 

3.49 

3.59 

3.70 

3.80 

3.90 

4.06 

4.24 

4.41 

4.53 

4.65 

4.81 

4.98 

5.12 

5.22 

5.32 

5.44 

5.56 

5.68 

5.77 

5.86 

5.94 

6.04 

6.15 

6.24 

6.31 

6.38 

6.47 

6.57 

6.65 

6.73 

6.80 

6.90 

7.00 

7.08 

7.15 

7.22 

7.29 

7.37 

7.45 

7.52 

7.58 

7.64 

7.73 

7.80 

7.87 

7.92 

7.97 

8.04 

8.12 

8.19 

8.25 

8.31 

8.39 

8.44 

-6.24 

-3.87 

-3.11 

-2.07 

-0.97 

0.61 

1.81 

1.63 

1.55 

1.50 

1.56 

1.66 

2.01 

2.31 

2.59 

2.90 

3.09 

3.21 

3.27 

3.34 

3.39 

3.48 

3.58 

3.69 

3.79 

3.89 

4.05 

4.23 

4.40 

4.51 

4.63 

4.79 

4.95 

5.09 

5.20 

5.30 

5.43 

5.55 

5.66 

5.74 

5.83 

5.91 

6.02 

6.13 

6.23 

6.30 

6.37 

6.46 

6.56 

6.65 

6.72 

6.79 

6.88 

6.99 

7.08 

7.15 

7.22 

7.29 

7.38 

7.46 

7.53 

7.58 

7.64 

7.72 

7.80 

7.87 

7.92 

7.97 

8.04 

8.12 

8.19 

8.25 

8.31 

8.38 

8.45 

-6.01 

-3.79 

-3.20 

-2.22 

-1.04 

0.55 

1.80 

1.50 

1.40 

1.30 

1.33 

1.62 

2.04 

2.33 

2.60 

2.88 

3.06 

3.18 

3.25 

3.32 

3.37 

3.46 

3.57 

3.68 

3.77 

3.88 

4.04 

4.22 

4.37 

4.49 

4.61 

4.76 

4.92 

5.07 

5.18 

5.28 

5.42 

5.53 

5.64 

5.72 

5.81 

5.89 

6.00 

6.11 

6.21 

6.28 

6.35 

6.45 

6.55 

6.64 

6.71 

6.78 

6.87 

6.98 

7.08 

7.15 

7.22 

7.29 

7.38 

7.46 

7.53 

7.58 

7.64 

7.72 

7.80 

7.87 

7.92 

7.98 

8.04 

8. 12 

8.20 

8.25 

8.30 

8.38 

8.46 

-5.92 

-4.00 

-3.22 

-2.23 

-1.12 

0.42 

1.66 

1.49 

1.34 

1.24 

1.34 

1.63 

2.04 

2.34 

2.61 

2.89 

3.07 

3.19 

3.25 

3.31 

3.36 

3.44 

3.54 

3.64 

3.74 

3.84 

3.99 

4.16 

4.33 

4.45 

4.56 

4.71 

4.87 

5.03 

5.14 

5.25 

5.38 

5.50 

5.61 

5.70 

5.79 

5.87 

5.98 

6.09 

6.20 

6.27 

6.34 

6.44 

6.54 

6.63 

6.70 

6.77 

6.87 

6.98 

7.08 

7.15 

7.22 

7.29 

7.38 

7.46 

7.54 

7.59 

7.64 

7.72 

7.80 

7.87 

7.93 

7.98 

8.04 

8.12 

8.19 

8.25 

8.30 

8.37 

8.44 

-6.08 

-4.09 

-3.26 

-2.24 

-1.22 

0.32 

1.66 

1.44 

1.30 

1.23 

1.34 

1.62 

2.04 

2.34 

2.61 

2.89 

3.08 

3.19 

3.25 

3.31 

3.35 

3.41 

3.50 

3.60 

3.69 

3.80 

3.95 

4.12 

4.28 

4.40 

4.52 

4.67 

4.83 

4.99 

5.10 

5.21 

5.35 

5.48 

5.59 

5.67 

5.77 

5.85 

5.97 

6.08 

6. 18 

6.26 

6.33 

6.43 

6.53 

6.63 

6.70 

6.77 

6.87 

6.98 

7.08 

7.15 

7.22 

7.29 

7.38 

7.46 

7.54 

7.59 

7.65 

7.72 

7.80 

7.88 

7.93 

7.98 

8.04 

h.  12 

8. 19 

8.25 

8.29 

8.36 

8.43 

-6.37 

-4.17 

-3.32 

-2.26 

-1.33 

0.23 

1.71 

1.39 

1.28 

1  .  72 

1.34 

1.62 

2.04 

2.34 

2.01 

-.91 

3. 10 

3.21 

3.25 

).  3U 

3.33 

3.39 

3.46 

3.56 

3.65 

3.74 

3.89 

i .  06 

4.23 

■■'4 .  3  4 
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4.46 

4.62 

4.78 

4.94 

5.06 

5.75 

5.83 

5.95 

6.06 

6.17 

6.70 

6.76 

6.86 

6.98 

7.08 

7.54 

7.59 

7.65 

7.72 

7.80 

8.19 

8.24 

8.29 

8.34 

8.42 

-6.44 

-4.29 

-3.39 

-2.32 

-1.39 

1.36 

1.63 

2.03 

2.34 

2.62 

3.32 

3.36 

3.43 

3.51 

3.60 

4.41 

4.56 

4.73 

4.90 

5.02 

5.72 

5.81 

5.93 

6.05 

6.15 

6.69 

6.76 

6.86 

6.98 

7.08 

7.54 

7.60 

7.65 

7.72 

7.80 

8.19 

8.24 

8.28 

8.33 

8.40 

-6.39 

-4.43 

-3.46 

-2.38 

-1.45 

1.38 

1.63 

2.02 

2.34 

2.62 

3.30 

3.33 

3.39 

3.47 

3.55 

4.35 

4.51 

4.68 

4.85 

4.98 

5.70 

5.79 

5.91 

6.03 

6.14 

6.69 

6.76 

6.86 

6.98 

7.08 

7.55 

7.60 

7.65 

7.73 

7.80 

8.18 

8.24 

8.28 

8.32 

8.39 

-6.56 

-4.49 

-3.51 

-2.43 

-1.49 

1.39 

1.63 

2.02 

2.34 

2.63 

3.29 

3.31 

3.36 

3.43 

3.51 

4.31 

4.47 

4.64 

4.81 

4.94 

5.68 

5.77 

5.89 

6.01 

6.12 

6.69 

6.76 

6.86 

6.97 

7.08 

7.55 

7.60 

7.65 

7.73 

7.81 

8.18 

8.24 

8.27 

8.31 

8.38 

-6.83 

-4.53 

-3.52 

-2.49 

-1.53 

1.40 

1.63 

2.03 

2.35 

2.63 

3.28 

3.28 

3.32 

3.39 

3.47 

4.26 

4.41 

4.59 

4.77 

4.90 

5.66 

5.75 

5.87 

6.00 

6.11 

6.69 

6.76 

6.86 

6.98 

7.08 

7.55 

7.60 

7.66 

7.73 

7.81 

8.18 

8.23 

8.27 

8.29 

8.37 

-6.79 

-4.62 

-3.53 

-2.50 

-1.51 

1.43 

1.68 

2.07 

2.38 

2.67 

3.29 

3.29 

3.31 

3.37 

3.44 

4.21 

4.37 

4.56 

4.74 

4.88 

5.66 

5.75 

5.88 

6.00 

6.12 

6.71 

6.78 

6.88 

6.99 

7.10 

7.56 

7.61 

7.66 

7.73 

7.81 

8.18 

8.23 

8.26 

8.28 

8.35 

-6.63 

-4.69 

-3.57 

-2.43 

-1.45 

1.49 

1.76 

2.15 

2.46 

2.74 

3.33 

3.32 

3.33 

3.37 

3.42 

4.17 

4.34 

4.53 

4.72 

4.86 

5.67 

5.77 

5.90 

6.03 

6.15 

6.75 

6.82 

6.91 

7.02 

7.12 

7.57 

7.62 

7.67 

7.74 

7.81 

8.17 

8.22 

8.25 

8.27 

8.34 

-6.61 

-4.72 

-3.56 

-2.38 

-1.40 

1.54 

1.84 

2.22 

2.52 

2.80 

3.36 

3.35 

3.35 

3.37 

3.41 

4.14 

4.32 

4.52 

4.71 

4.85 

5.69 

5.79 

5.92 

6.06 

6.18 

6.78 

6.85 

6.95 

7.05 

7.15 

7.58 

7.63 

7.68 

7.74 

7.81 

5.17 

5.31 

5.44 

5.56 

5.65 

6.24 

6.32 

6.42 

6.53 

6.62 

7.15 

7.23 

7.29 

7.38 

7.47 

7.88 

7.93 

7.98 

8.04 

8.12 

0.17 

1.66 

1.36 

1.26 

1.22 

2.92 

3.12 

3.22 

3.26 

3.29 

3.69 

3.83 

4.00 

4.17 

4.29 

5.13 

5.28 

5.41 

5.54 

5.63 

6.23 

6.31 

6.41 

6.52 

6.62 

7.15 

7.23 

7.30 

7.38 

7.47 

7.88 

7.93 

7.98 

8.04 

8.12 

0.12 

1.56 

1.33 

1.23 

1.21 

2.93 

3.13 

3.23 

3.26 

3.29 

3.65 

3.78 

3.95 

4.11 

4.23 

5.09 

5.24 

5.38 

5.51 

5.60 

6.21 

6.29 

6.40 

6.51 

6.61 

7.15 

7.23 

7.30 

7.38 

7.47 

7.88 

7.93 

7.98 

8.04 

8.12 

0.07 

1.56 

1.29 

1.21 

1.21 

2.94 

3.14 

3.24 

3.26 

3.28 

3.60 

3.74 

3.90 

4.07 

4.19 

5.06 

5.21 

5.36 

5.49 

5.58 

6.20 

6.28 

6.39 

6.51 

6.61 

7.15 

7.23 

7.30 

7.38 

7.47 

7.88 

7.93 

7.98 

8.04 

8.12 

-0.01 

1.61 

1.21 

1.18 

1.22 

2.95 

3.16 

3.25 

3.27 

3.28 

3.55 

3.68 

3.84 

4.01 

4.14 

5.02 

5.17 

5.32 

5.47 

5.56 

6.19 

6.28 

6.38 

6.50 

6.61 

7.16 

7.24 

7.30 

7.38 

7.47 

7.89 

7.93 

7.98 

8.04 

8.12 

0.04 

1.56 

1.20 

1.18 

1.24 

2.99 

3.19 

3.27 

3.29 

3.30 

3.51 

3.64 

3.79 

3.96 

4.09 

5.00 

5.15 

5.31 

5.45 

5.56 

6.20 

6.29 

6.40 

6.52 

6.63 

7.17 

7.25 

7.31 

7.39 

7.48 

7.89 

7.93 

7.98 

8.04 

8.11 

0.16 

1.52 

1.24 

1.20 

1.26 

3.04 

3.22 

3.31 

3.33 

3.33 

3.49 

3.60 

3.75 

3.92 

4.05 

4.98 

5.14 

5.31 

5.46 

5.56 

6.24 

6.32 

6.44 

6.56 

6.67 

7.20 

7.27 

7.33 

7.41 

7.49 

7.89 

7.93 

7.98 

8.04 

8.11 

0.25 

1.57 

1.25 

1.22 

1.30 

3.08 

3.26 

3.34 

3.36 

3.37 

3.46 

3.57 

3.71 

3.88 

4.01 

4.98 

5.14 

5.31 

5.46 

5.57 

6.27 

6.36 

6.47 

6.60 

6.71 

7.22 

7.29 

7.35 

7.42 

7.50 

7.88 

7.93 

7.98 

8.04 

8. 10 
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8.17 

8.21 

8.24 

8.27 

8.33 

-6.69 

-4.72 

-3.53 

-2.32 

-1.32 

0.38 

1.65 

1.25 

1.25 

1.33 

1.60 

1.92 

2.32 

2.61 

2.87 

3.14 

3.30 

3.38 

3.40 

3.41 

3. AO 

3.38 

3.37 

3.38 

3.40 

3.44 

3.53 

3.67 

3.84 

3.98 

4.11 

4.29 

4.50 

4.69 

4.84 

4.97 

5.13 

5.31 

5.47 

5.59 

5.71 

5.81 

5.95 

6.09 

6.22 

6.31 

6.40 

6.51 

6.64 

6.75 

6.83 

6.90 

6.98 

7.08 

7.18 

7.24 

7.31 

7.37 

7.44 

7.51 

7.59 

7.64 

7.69 

7.75 

7.82 

7.89 

7.93 

7.98 

8.04 

8.10 

8.17 

8.20 

8.22 

8.25 

8.32 

-6.68 

-4.68 

-3.41 

-2.26 

-1.21 

0.53 

1.69 

1.29 

1.27 

1.37 

1.69 

2.02 

2.41 

2.69 

2.94 

3.20 

3.34 

3.43 

3.45 

3.46 

3.45 

3.42 

3.39 

3.38 

3.39 

3.41 

3.49 

3.63 

3.81 

3.94 

4.07 

4.26 

4.47 

4.68 

4.83 

4.96 

5.13 

5.31 

5.48 

5.60 

5.73 

5.84 

5.98 

6.13 

6.26 

6.35 

6.44 
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1.14 

1.20 

1.29 

1.42 

3.00 

3.46 

3.87 

4.05 

4.09 

3.50 

3.53 

3.72 

3.97 

4.18 

5.58 

5.77 

5.96 

6.10 

6.19 

6.93 

6.99 

7.07 

7.11 

7.40 

7.24 

7.27 

7.29 

7.34 

7.41 

7.80 

7.85 

7.90 

7.97 

8.04 

0.26 

1.44 

1.50 

1.61 

1.76 

2.79 

3.28 

3.63 

3.75 

3.78 

3.31 

3.35 

3.56 

3.79 

3.97 

5.24 

5.42 

5.61 

5.75 

5.85 

b.62 

6.70 

b.81 

b.87 

7.24 

7.18 

7.22 

7.26 

7.32 

7.40 

7.79 

7.84 

7.90 

7.97 

8.U4 
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4.20 

4.35 

4.52 

4.69 

4.82 

4.93 

5.08 

5.22 

5.35 

5.46 

5.56 

5.66 

5.80 

5.94 

6.06 

6.15 

6.23 

6.33 

6.40 

7.14 

7.45 

7.72 

7.80 

6.86 

6.96 

7.03 

7.11 

7.18 

7.26 

7.34 

7.42 

7.48 

7.54 

7.62 

7.69 

7.75 

7.81 

7.86 

7.94 

8.01 

8.09 

8.14 

8.19 

8.25 

8.27 

-6.12 

-4.03 

-2.90 

-1.80 

-0.67 

1.09 

1.95 

2.21 

2.00 

1.72 

1.27 

1.52 

2.03 

2.46 

2.86 

3.33 

3.65 

3.83 

3.88 

3.92 

3.93 

3.92 

3.89 

3.84 

3.82 

3.80 

3.83 

3.92 

4.03 

4.12 

4.22 

4.37 

4.54 

4.71 

4.84 

4.95 

5.09 

5.23 

6.36 

5.46 

5.57 

5.66 

5.80 

5.94 

6.07 

6.15 

6.23 

6.32 

6.42 

7.18 

7.52 

7.81 

7.91 

6.85 

6.96 

7.02 

7.10 

7.17 

7.26 

7.34 

7.42 

7.47 

7.54 

7.61 

7.68 

7.75 

7.80 

7.86 

7.93 

8.00 

8.09 

8.14 

8.20 

8.26 

8.27 

-6.26 

-4.10 

-3.02 

-1.84 

-0.77 

0.98 

1.96 

2.19 

1.96 

1.66 

1.24 

1.49 

1.99 

2.43 

2.83 

3.30 

3.62 

3.80 

3.85 

3.89 

3.90 

3.89 

3.86 

3.82 

3.81 

3.80 

3.82 

3.93 

4.03 

4.13 

4.23 

4.37 

4.55 

4.72 

4.85 

4.96 

5,10 

5.24 

5.37 

5.47 

5.57 

5.67 

5.80 

5.95 

6,07 

6.15 

6.23 

6.34 

6.42 

7.27 

7.64 

7.96 

8.04 

6.85 

6.95 

7.02 

7.10 

7.16 

7.25 

7.33 

7.41 

7.47 

7.53 

7.61 

7.68 

7.74 

7.80 

7.85 

7.92 

8.00 

8.08 

8.14 

8.19 

8.25 

8.27 

-6.37 

-4.30 

-3.13 

-1.91 

-0.90 

0.87 

1.97 

2.17 

1.92 

1.62 

1.22 

1.46 

1.93 

2.38 

2.79 

3.27 

3.59 

3.76 

3.81 

3.85 

3.87 

3.85 

3.82 

3.80 

3.79 

3.79 

3.81 

3.93 

4.04 

4.13 

4.23 

4.38 

4.56 

4.73 

4.85 

4.96 

5.10 

5.25 

5.38 

5.47 

5.58 

5.67 

5.81 

5.95 

6.07 

6.15 

6.24 

6.36 

6.42 

7.39 

7.78 

8.13 

8.22 

6.85 

6.95 

7.02 

7.09 

7.16 

7.24 

7.33 

7.41 

7.46 

7.52 

7.60 

7.67 

7.74 

7.79 

7.84 

7.91 

7.99 

8.07 

8.13 

8.18 

8.24 

8.27 

-6.22 

-4.52 

-3.26 

-2.02 

-0.98 

0.70 

1.91 

2.13 

1.88 

1.58 

1.26 

1.44 

1.87 

2.32 

2.75 

3.24 

3.55 

3.72 

3.77 

3.81 

3.83 

3.81 

3.79 

3.77 

3.77 

3.77 

3.81 

3.92 

4.04 

4.14 

4.24 

4.39 

4.57 

4.73 

4.86 

4.96 

5.10 

5.25 

5.38 

5.48 

5.58 

5.68 

5.81 

5.96 

6.07 

6.16 

6.25 

6.38 

6.49 

7.49 

7.92 

8.30 

8.41 

6.85 

6.94 

7.01 

7.09 

7.15 

7.24 

7.33 

7.40 

7.46 

7.52 

7.59 

7.66 

7.73 

7.79 

7.84 

7.91 

7.98 

8.06 

8.12 

8.17 

8.23 

8,27 

-6.10 

-4.71 

-3.38 

-2.12 

-1.06 

0.58 

1.86 

2.10 

1.85 

1.54 

1.28 

1.42 

1.80 

2.27 

2.71 

3.21 

3.51 

3.68 

3.73 

3.77 

3.79 

3.77 

3.76 

3.74 

3.75 

3.76 

3.81 

3.92 

4.04 

4.14 

4.24 

4.39 

4.57 

4.74 

4.86 

4.97 

5.10 

5.25 

5.39 

5.49 

5.59 

5.69 

5.82 

5.96 

6.07 

6.16 

6.25 

6.40 

6.55 

7.58 

8.07 

8.46 

8.57 

6.84 

6.94 

7.01 

7.08 

7.15 

7.23 

7.32 

7.40 

7.45 

7.51 

7.58 

7.65 

7.73 

7.78 

7.83 

7.90 

7.98 

8.06 

6.11 

8.16 

8.22 

8.26 

-6.13 

-4.88 

-3.50 

-2.22 

-1.16 

0.47 

1.87 

2.06 

1.81 

1.51 

1.28 

1.39 

1.75 

2.22 

2.67 

3.18 

3.48 

3.64 

3.70 

3.74 

3.76 

3.74 

3.72 

3.71 

3.73 

3.75 

3.80 

3.92 

4.04 

4.  14 

4.24 

4.39 

4.58 

4.74 

4.86 

4.97 

5.10 

5.26 

5.39 

5.49 

5.60 

5.69 

5.82 

5.96 

6.07 

6.16 

6.26 

6.42 

6.55 

7.68 

8.19 

8.62 

8.74 

6.84 

6.94 

7.01 

7.08 

7.15 

7.23 

7.32 

7.39 

7.45 

7.50 

7.57 

7.65 

7.72 

7.77 

7.82 

7.89 

7.97 

8.05 

8.10 

8.15 

8.21 

8.26 

-6.12 

-5.00 

-3.62 

-2.41 

-1.32 

0.32 

1.87 

2.02 

1.77 

1.48 

1.29 

1.35 

1.68 

2.16 

2.63 

3.15 

3.45 

3.60 

3.66 

3.70 

3.72 

3.70 

3.69 

3.68 

3.71 

3.74 

3.79 

3.92 

4.04 

4.15 

4.25 

4.40 

4.59 

4.75 

4.87 

4.97 

5.10 

5.27 

5.40 

5.50 

5.61 

5.70 

5.83 

5.97 

6.07 

6.17 

6.27 

6.44 

6.54 

7.80 

8.33 

8.80 

8.93 

6.84 

6.94 

7.00 

7.08 

7.14 

7.22 

7.32 

7.39 

7.44 

7.49 

7.56 

7.64 

7.72 

7.77 

7.82 

7.88 

7.96 

195 


8.04 

8.10 

8.14 

8.20 

8.27 

-5.96 

-5.15 

-3.49 

-2.55 

-1.40 

1.31 

1.32 

1.62 

2.11 

2.60 

3.68 

3.66 

3.66 

3.66 

3.69 

4.26 

4.40 

4.59 

4.75 

4.87 

5.61 

5.71 

5.83 

5.97 

6.08 

8.49 

8.98 

9.13 

6.84 

6.93 

7.39 

7.44 

7.49 

7.55 

7.63 

8.03 

8.09 

8.13 

8.19 

8.26 

-5.96 

-5.08 

-3.71 

-2.55 

-1.48 

1.36 

1.35 

1.60 

2.08 

2.55 

3.68 

3.66 

3.66 

3.66 

3.69 

4.25 

4.40 

4.58 

4.75 

4.86 

5.62 

5.71 

5.84 

5.99 

6.10 

8.64 

9.17 

9.32 

6.84 

6.93 

7.39 

7.44 

7.48 

7.54 

7.62 

8.03 

8.08 

8.13 

8.19 

8.25 

-5.98 

-5.06 

-3.75 

-2.58 

-1.56 

1.40 

1.37 

1.59 

2.05 

2.51 

3.67 

3.66 

3.66 

3.68 

3.70 

4.25 

4.40 

4.58 

4.74 

4.86 

5.62 

5.72 

5.86 

6.01 

6.13 

8.83 

9.38 

9.54 

6.84 

6.94 

7.39 

7.44 

7.48 

7.54 

7.62 

8.02 

8.07 

8.12 

8.18 

8.24 

-6.04 

-5.02 

-3.73 

-2.60 

-1.64 

1.45 

1.39 

1.58 

2.02 

2.47 

3.67 

3.67 

3.67 

3.69 

3.71 

4.24 

4.39 

4.57 

4.73 

4.85 

5.63 

5.72 

5.87 

6.03 

6.16 

9.02 

9.59 

9.71 

6.85 

6.94 

7.39 

7.44 

7.48 

7.53 

7.61 

8.01 

8.06 

8.11 

8.17 

8.24 

-6.10 

-4.82 

-3.46 

-2.63 

-1.77 

1.49 

1.40 

1.56 

2.01 

2.43 

3.67 

3.67 

3.68 

3.70 

3.72 

4.24 

4.39 

4.56 

4.73 

4.85 

5.63 

5.73 

5.88 

6.05 

6.18 

9.14 

9.75 

9.83 

6.85 

6.94 

7.39 

7.44 

7.48 

7.53 

7.60 

8.01 

8.06 

8.10 

8.16 

8.23 

0.12 

1.77 

2.03 

1.71 

1.45 

3.13 

3.39 

3.56 

3.63 

3.67 

3.73 

3.79 

3.91 

4.04 

4.15 

4.97 

5-10 

5.27 

5.40 

5.50 

6.18 

6.28 

6.46 

6.64 

7.91 

7.00 

7.07 

7.14 

7.21 

7.31 

7.71 

7.76 

7.81 

7.88 

7.96 

0.04 

1.66 

1.98 

1.76 

1.50 

3.10 

3.40 

3.56 

3.62 

3.66 

3.73 

3.80 

3.92 

4.04 

4.15 

4.97 

5.10 

5.27 

5.41 

5.51 

6.21 

6.32 

6.51 

6.74 

8.03 

7.00 

7.07 

7.13 

7.21 

7.31 

7.70 

7.75 

7.80 

7.87 

7.95 

•0.08 

1.56 

1.96 

1.79 

1.57 

3.07 

3.40 

3.57 

3.62 

3.66 

3.74 

3.81 

3.92 

4.04 

4.14 

4.97 

5.11 

5.27 

5.41 

5.51 

6.25 

6.37 

6.58 

6.82 

3.18 

7.00 

7.07 

7.13 

7.21 

7.31 

7.69 

7.75 

7.80 

7.87 

7.95 

■0.20 

1.50 

1.95 

1.83 

1.63 

3.06 

3.40 

3.58 

3.63 

3.66 

3.74 

3.82 

3.92 

4.04 

4.14 

4.96 

5.11 

5.27 

5.42 

5.52 

6.28 

6.41 

6.64 

6.86 

8.33 

7.00 

7.07 

7.13 

7.21 

7.31 

7.69 

7.74 

7.79 

7.87 

7.95 

•0.36 

1.36 

1.93 

1.83 

1.69 

3.04 

3.41 

3.59 

3.64 

3.67 

3.75 

3.83 

3.93 

4.05 

4.14 

4.96 

5.11 

5.27 

5.42 

5.52 

6.30 

6.44 

6.70 

6.89 

8.47 

7.00 

7.07 

7.12 

7.20 

7.31 

7.68 

7.74 

7.79 

7.86 

7.94 
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(iii)  LOC.DAT 


1 

56.  9A4.  12. 

1 

-88.  1088.  24. 
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Appendix  D 

Input/Output  Data  Files  for  Wave  Propagating 
Over  Currents 

(i)  IN. DAT 

(ii)  DEPTH.DAT 

(iii)  CURRNX.DAT 

(iv)  CURRNY.DAT 

(v)  LOC.DAT 

(vi)  0UT01.DAT 
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(1)  IN. DAT 


1 

0 

0 

1 .uouuou 

y.oooooo 

0.00000 

32.20000 

O.OOOOOOOE+00 

bl 

61 

1000. uuu 

-400.0000 

10.000000 

10.000000 

bl 

loo 

1 

1 

2 

0 

2.oooooit;-o:^ 

2.0000000E-02 

990.0000 

O.OOOOOOOE+00 

0 

0 

1 

1 

0 

CURKhM-OAVli 

1.00000000+03 

1 .OOOOOOE-02 

INTERACTION 

10 

O.UOOOOO 

0. 0000000 

1000. 000 

0.000000 

O.OOOOOU 

350.00000 

1000.000 

350.0000 

u.ouOooo 

50.0000IJO 

1000.000 

50.00000 

0. 000000 

100.00000 

1000.000 

100. 0000 

u.OOOOUU 

150.00000 

1000. 000 

150.0000 

550.0000 

-200. 0000 

550.0000 

200.0000 

450.0000 

-200.0000 

4 50.0000 

200.0000 

550.0000 

-200.0000 

350.0000 

200.0000 

^50.0000 

-200.0000 

250.0000 

200.0000 

150.OO()O 

-200.0000 

150.0000 

200.0000 

1 


(ii)  OEPTH.DAT 


u 


0.0000 

O.OOOO 

O.OOOO 

O.UOOO 

O.OOOO 

0.0000 

O.OOOO 

o.uooo 

O.OOOO 

0.0000 

O.OOOO 

0.0000 

0.0000 

O.OOOO 

O.UOOO 

u.oooo 

0.00()0 

o.uooo 

O.OOOO 

o.uooo 

O.OOOO 

0.0000 

O.OOOO 

O.OOOO 

0.0000 

0.0000 

0.0000 

u.oooo 

O.30O0 

0.3000 

0.3000 

u.3000 

0.3000 

0.3000 

0.3000 

0.3000 

0.3000 

O.3UO0 

0.3UUU 

0.3000 

0.3000 

0.3000 

U.30U0 

0.3000 

0.3000 

0.3000 

0.3000 

0.3000 

0.3000 

0.3000 

0.3000 

u.3000 

0.3000 

0.3000 

U.3000 

0.3000 

0.6000 

0.6000 

0.6000 

0.6000 

U.oOUO 

U.bOOO 

O.bOOO 

0.6000 

0.6000 

0.6000 

O.buOO 

0.6000 

0.6000 

0.6000 

0.6000 

O.bOOO 

0 . oOou 

O.bOOU 

O.bOOO 

U.bOOO 

0.6000 

O.bOOO 

O.bOOO 

0 .  bOOO 

O.dOOO 

0. 600(1 

0.6000 

O.bOOO 

0.9000 

0.9000 

0.9000 

0.9000 

0.9000 

0.9000 

0.9000 

0.9000 

0.9000 

0.9000 

0.9000 

(j.9000 

0.9000 

0.9000 

0 . 9000 

U.90U() 

0.9000 

0.9000 

0.9000 

0.90UU 

0.9O00 

0.9000 

0.9000 

0.9()00 

0.9000 

0.9000 

0.9000 

0.9000 

1.2000 

1.2000 

1.2000 

1.2UUU 

1 .2000 

1.2000 

1.2000 

1.2000 

1 .2000 

1 . 2000 

1.2000 

1 .2000 

1.2000 

1 . 2000 

1.2000 

1.2000 

1.2000 

1.2000 

1.2000 

1 . 2000 

1.2000 

1.2000 

1 . 2000 

1 .2000 

1.2000 

1.2000 

1.2000 

1.2UUU 

1 .5oOO 

1.5000 

1 . 5000 

1 . 5000 

1 . 5000 

1 . 5000 

1.5000 

1 .5000 

1.5000 

1.5000 

1.5000 

1 . 5000 

1 . 5000 

1.5000 

1.5000 

1 . 5000 

1.5000 

1.5000 

1.5000 

1.5000 

1.5000 

1.5000 

1.5000 

1 .5000 

1.5000 

1 .5000 

1.5000 

1 .5000 

1.6000 

1.6000 

1.8000 

1 .8000 

1  .6000 

1.6000 

l.boOO 

1.6000 

1.6000 

1 . 6000 

1 . 6000 

1.6000 

1.6000 

1.6000 

1.6000 

1.6000 

1.6000 

1.6000 

1.6000 

1.6000 

1  .6000 

1.6000 

1.600(1 

1 .6000 

1.6000 

1 . 6000 

1 . 6000 

1 .6000 

2.1000 

2.1000 

2. lOOO 

2.1000 

2.1000 

2. 1000 

2.1000 

2. 1000 

2. lUOO 

2.1000 

2.1000 

2.1000 

2.1000 

2.1000 

2.1000 

2 . 1 000 

2. loOu 

2.1000 

2.1000 

2.1000 

2. lOuO 

2 . lOOO 

2.1000 

2.1000 

2. ioOO 

2.1000 

2.1000 

2. 1000 

2.4000 

2.4000 

2.4000 

2.4ii(jo 

2.4000 

2.4001/ 

2.4000 

2. -4  000 

2. 4000 

2.400(1 

2.4000 

2 .4(j()(t 

0 . 0000 

0.0000 

U.OOUO 

U.OOOO 

O.OUOu 

U.OOOO 

O.OOOO 

U.OOOO 

0.0000 

u.oooo 

o.uuuo 

O.UOOO 

0.0000 

0.0000 

u.oooo 

O.UUUO 

0.0000 

o.uooo 

U.OOUO 

o.uooo 

u.oooo 

u.oooo 

o.uouu 

U.OOOO 

0.0000 

0.0000 

0.0000 

0.3000 

U.300U 

u.3000 

0.3U0O 

0.3000 

0.3000 

0.3000 

0.3000 

0.3000 

0.3000 

0.3000 

0.3000 

0.3000 

0.3000 

0.3000 

0.3000 

0.3000 

0.30UU 

0.30UU 

U.300U 

0.3000 

0.3000 

0.3U0U 

0.3000 

0.3000 

0.3000 

U.3CJU 

0.6000 

0.6000 

0.6000 

0.6000 

0.6000 

0.6000 

0 . 6000 

0.6000 

O.bOOO 

0.6000 

0 . 6000 

O.bOOO 

0.6000 

O.bOOU 

0.6000 

0.6000 

O.bOOU 

0.6000 

0.60UU 

0.6000 

0.6000 

0.6000 

0.60UU 

U.bOOO 

0.6000 

0.6000 

U.bOOO 

0.9000 

0.9000 

0.9000 

0.9000 

0.9000 

0.9000 

0.9000 

0.9000 

U.9000 

0.9000 

U.9UU0 

0.9000 

0.90U0 

0.9000 

0.9000 

0.9000 

0.900U 

0.9U00 

O.9000 

0.9000 

0.90U0 

U.9000 

U.9U0U 

0.9000 

0.9OU0 

0.9000 

0.9000 

1.2000 

1.2000 

1.2000 

1.2000 

1.2000 

1.20U0 

1.2000 

1.2000 

1.2000 

1.2000 

1.200O 

1.2000 

1.2000 

1.2000 

1.2000 

1.2000 

1.2UUU 

1.2000 

1 .2000 

1 . 2000 

1.2000 

1.2000 

1.2000 

1.2000 

1.2000 

1.2000 

1 .2000 

1.5000 

1.5000 

1.5000 

1.5000 

1.5000 

1.5000 

1.500U 

1 .5uoO 

1 . 5000 

1.5000 

1 . 5000 

1 .5uOO 

1 . 5000 

1.5000 

1 .5000 

1 . 5000 

1 . 5000 

1.5000 

1 . 5000 

1.5000 

l.'UOO 

1.5000 

1 .5000 

1 .5000 

1.5000 

J.5000 

1.5000 

1.6000 

1.6000 

1.6000 
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y.oooo 

9.0000 

y.oooo 

9.0000 

y.uooo 

V.UOOO 

y.ouoo 

9.U0OU 

y.oooo 

y.oooo 

9.000U 

y.ooou 

y.ooou 

y.uooo 

9.OU00 

y . uouo 

9.0U00 

y.oooo 

y.oooo 

y.oooo 

y.oooo 

y.uooo 

y.uooo 

y.uuoo 

y.oooo 

y.oooo 

y.oooo 

y.oooo 

y.oooo 

9.0000 

y.oooo 

y.oooo 

‘».000u 

y . ouou 

y.oooo 

y.oooo 

y.oooo 

y.oooo 

9.0000 

y.uooo 

y.ouoo 

v.OOOO 

y .OuOO 

y.uooo 

y.oooo 

y.oooo 

y.oooo 

y.ooou 

y.ouou 

9.0000 

y.(^uoo 

y.Ouot; 

y.uDoi) 

y.uuuu 

y.ooou 

y.ooou 

y.oooo 

y.jooo 

y.30uo 

y . Juoo 

y.3ooo 

y.30oo 

y.3ouo 

y.3uoo 

9.3000 

9.3000 

y.3uoo 

y.3uoo 

y.3ouu 

y.3ouo 

y. 3000 

9. 3000 

9.3000 

9.3000 

y.3o('(i 

y.  31)00 

y .3000 

y .30uo 

y .3000 

9.3000 

y.3uoo 

y.3ooo 

y . 3000 

y.3uou 

y . 3uoo 

y.3uoii 

y.3ooo 

y.30uo 

y.3uou 

9.3000 

y.3i)0o 

9.3000 

9.3000 

y.300u 

y. juou 

y .3uoo 

y . 3UUD 

y.3ouo 

y.300u 

y.3uoo 

9.3UUU 

y.3ouu 

y.3onu 

y. joou 

y. jooo 

y.3ooo 

y.3uou 

y.3uou 

9.3000 

y.3oou 

9.3oOu 

y.3U0u 

y.3uOO 

y .3000 

y .3000 

y.3uuu 

9 . 3UUU 

y . 3oou 

y . 8000 

y .  nj-jn 

y .  oui.'O 

oi)i)0 

y . ouou 

y . 6U0U 

y .  O'.OO 

y.  ijU'Ii; 

6001' 

y . 8000 

y .oouO 

y . boou 

9.6000 

y.bouu 

y.bouu 

y .buou 

9.6000 

y . 6000 

y.ooou 

y . oOGo 

y . 6000 

9.6000 

y.6000 

9.6000 

9. 60 00 

9.6000 

9.6000 

y .8000 

y . oouu 

y . 600 J 

y.6000 

y . oooo 

y  .ot'UU 

'• .  bOiy.! 

V  •  nOi  •<  i 

y.oooo 

y.oooo 

y . cOGO 

y . oooo 

y.6oou 

y.ooou 

y.buuo 

y.boou 

9.6000 

y.oOuo 

y .8000 

y . oooo 

y .6000 

y . 6000 

y .bOou 

y.buoo 

y.buon 

y . uooo 

y  .  6i.'L'U 

y. oOuO 

y.80uu 

y .  ouou 

y.ouoo 

y.6uuo 

y . pooo 

y.6000 

y.yiiuo 

y .  y.)iiu 

y .  vooo 

y.yooo 

y.yoou 

y .yuou 

y.yooo 

''.9000 

6.9000 

y . yuo j 

K . yOUu 

y . yoo J 

y.yot'O 

y . voou 

y.yooo 

y.  vo'jo 

y.yooo 

6.9000 

‘".yoijo 

y .  y 

y.yiiOO 

y  .yi'ou 

v.yuuu 

y . yoou 

y.yi'oo 

V.  9001. 

y.yooo 

y. 9000 

y .  y'j8u 

y .  yiA/O 

y . yoDu 

y.  yuuii 

.  yi  >i  K) 

y.yooo 

y.  yol'O 

y.  v-ioo 

y .youo 

y.youu 

y .youo 

y  .yoiiu 

y . vuuu 

y.yoi.o 

'• .  Voolj 

y.yooo 

y.yooo 

y . yoou 

y .  ■.■.-Hi 

y,  VM'll 

y.  yoi,;, 

y.yuc:. 

V .  yool  1 

V'lOO 

.1., 

■‘.yooii 

y.vuou 

y  .yjijo 

'J .  yooo 

y.'  '0 

y .yund 

y.yvjoo 

“.yuoj 

U.ZUfHt 

I'J.J  '.'0 

1:  .'J.IHIU 

1  (1. 

1  1.  J(  "’0 

lO.  J' 
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1U.20U0  1U.2UU0  1U.20UU 
10.2U00  1U.2000  10.2UU0 

10.2000  10.2000  10.2000 

10.2000  10.2000  10.2000 

10.2000  10.2000  10.2000 

10.2000  10.2000  1O.2U00 

10.5000  10.5000  10.5000 

10.5000  10.5000  10.5000 

10.5000  10.5000  10.5000 

10.5000  10.5000  10.5000 
10.50U0  10.5000  10.5000 

10.5000  10.5000  10.5000 

10.5000  10.5000  10.5000 

io.«ooo  lo.aooo  10.0000 

lO.bUOO  10.8000  10.8000 

10.8000  10.8000  10.8000 

10.8000  10.8000  10.8000 

10.8000  10.8000  10.8000 

10. 8000  10.8000  10.8000 

10.8000  10.8000  10.8000 

11.1000  11.1000  11.1000 

11.1000  11.1000  11.1000 

11.1000  11.1000  11.1000 

11.1000  11.1000  11.1000 

11.1000  11.1000  11.1000 

ll.lUOU  11.1000  ll.lUOO 

11.1000  11.1000  11.1000 

11.4000  11.4000  11.4000 

11.4000  11.4000  11.4000 

11.4000  11.4000  11.4000 

11.4000  11.4000  11.4000 

11.4000  11.4000  11.4000 

11.4000  11.4000  11.4000 

11.4000  11.4000  11.4000 

11.7000  11.7000  11.7000 
11.7U00  11.7000  11.7000 

11.7000  11.7000  11.7000 

11.7000  11.7000  11.7000 

11.7000  11.7000  11.7000 

11.7000  11.7000  11.7000 

11.7000  11.7000  11.7000 
12.0000  12.0000  12.0000 
12.0000  12.0000  12.0000 
12.0000  12.0000  12.0000 
12.0000  12.0UOU  12.0000 
12.0000  12.U000  12.0000 
12.0000  12.0000  12.0000 
12.0000  12.0000  12.0000 

12.4000  12.4000  12.4000 

12.4000  12.4000  12.4000 
12.4U00  12.4000  12.4000 

12.4000  12.4000  12.400CI 
12.40U0  12.40LIU  12.4000 

12.4000  12.400(1  12.4000 
12.4(jU0  12.4UO0  12.4(JU(J 

12.6000  12.6(;00  l2.^Jl^OO 
(2.8000  12.0000  12.6000 

12.8000  12.8000  12.8OU0 

12.8000  12.O000  12.6000 

12.8000  12.6000  12.hO()0 


10.2000  10.2000  10.2000 
J0.20C«0  10.2000  10.2000 

10.2000  10.20UO  10.2000 

10.2000  10.2000  10.2000 

10.2000  10.2000  10.2000 

10. 2000  10.2000  10.2000 

10.5000  10.5000  10.5000 

10.5000  10.5000  10.5000 

10.5000  10.5000  10.5000 

10.5000  10.5000  10.5000 

10.5000  10.5000  10.5000 

10.5000  10.5000  10.5000 

10.5000  10.5000  10.5000 

10.8000  10.8000  10.8000 

10.8000  10.8000  10.8000 

10.8000  10.8000  10.8000 

10.8000  10.8000  10.8000 

10.8000  10.8000  10.8000 

10.8000  10.8000  10.8000 

10.8000  10.8000  10.8000 

11.1000  ll.lUOO  11.1000 

11.1000  11.1000  11.1000 

11.1000  11.1000  11.1000 

11.1000  ll.lUOO  11.1000 
ll.lOUU  ll.lUOO  11.1000 

11.1000  11.1000  11.1000 
ll.lUOO  11.1000  ll.lUOO 

11.4000  11.4000  11.4000 
11.40C0  11.4000  11.4000 

11.4000  11.4000  11.4000 

11.4000  11.4000  11.4000 

11.4000  11.4000  11.4000 

11.4000  11.4000  11.4000 

11.4000  11.4000  11.4000 

11.7000  11.7000  11.7000 

11.7000  11.7000  11.7000 

11.7000  11.7000  11.7000 

11.7000  11.7000  11.7000 

11.7000  11.7000  11.7000 

11.7000  11.7000  11.7000 

11.7000  11.7000  11.7000 
12.0000  12.0000  12.0000 
12.0000  12.0000  12.0000 
12.0000  12.0000  12.0000 
12.0000  12.0000  12.0000 
12.0000  12.C((U0  12.U0UU 
12.0000  12.0000  12.0000 
12.0000  12.0000  12.0000 
12.4U00  12.4UOU  12.4000 
12.4U00  12.4000  12.4000 

12.4000  12.4000  12.4000 

12.4000  12.4000  12.4000 

12.4000  12.‘»00U  ]2.40LiU 

12.4000  12.4000  12.4000 
12.4U00  12.4U00  12.4000 

12.8000  12.0000  12.8000 

12.6000  12.8000  12.8000 

12.8000  12.6000  12.6000 

12.8000  12.6000  12.6000 
12.0000  I2.0OOO  12.8000 


IU.20O0  1U.2(j(jO  10.2000 

10. 2000  I0.20OU  10.2000 

10.2000  10.2000  10.2000 

10.2000  10.2000  rJ.200U 

10.2000  10.2U0U  10.2U00 

10.2000 

10.5000  IU.50OO  10.500U 

10.5000  10.5000  10.5000 

10.5000  10.5000  10.5000 

10.5000  10.5000  10.5000 

10.5000  10.5000  10.5000 

10.5000  10.5000  10.5000 

10.5000 

10.8000  10.8000  10.6000 

10.8000  10.8000  10.8000 

10.6000  10.8000  10.8000 

10.8000  10.6000  10.6U0U 

10.8000  10.8000  10.8000 

10.8000  10.8000  10.8000 

10.8000 

11.1000  11.1000  11.1000 

11.1000  11.1000  ll.lUOO 

11.1000  11.1000  11.1000 

ll.lUOO  11.1000  11.1000 

11.1000  ll.luou  11.1000 

ll.lUOO  11.1000  11.1000 
ll.lUOO 

11.4000  11.4000  11.4000 

11.4000  11.4000  11.4000 

11.4000  11.4000  11.4000 

11.4000  11.4000  11.4000 

11.4000  11.4000  11.4000 
11.4U00  11.4000  11.4000 

11.4000 

11.7000  11.7000  11.7000 

11.7000  11.7000  11.7000 

11.7000  11.7000  11.7000 

11.7000  11.7000  11.7000 

11.7000  11.7000  11.7000 

11.7000  11.7000  11.7000 

11.7000 

12.0000  12.0000  12.0000 
12.0000  12.0000  12.0000 
12.0000  12.UU00  12.0000 
12.0000  12.0000  12.0000 
12.0000  12.0000  12.0000 
12.0000  12.0000  12.0000 
12.0000 

12.400U  12.4000  12.4000 

12.4000  12.4000  12.4uU0 
12.4UUO  12.4000  12.4000 

12.4000  12.4000  12.4000 
12.40UU  12.  <*000  12.40uU 

12.4000  12.4UUO  12.6000 
12.6U0U 

12.801(0  12.8000  12.6000 
12.60U(J  12.8UUU  12.8000 

12.8000  12.8000  12.6UOU 

12.6000  12.8000  12.8000 
12.6o(jO  12.8000  12.8000 
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12.8000 

12.8000 

12.8000 

12.8000 

12.8OU0 

12.8000 

12.8000 

12.8000 

12 

12.8000 

12.8000 

12.8000 

12.8000 

12.8000 

12.8000 

12.8000 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13 

13.2000 

13.2000 

13.2000 

13.2U0U 

13.2000 

13.2000 

13.2000 

13.2000 

13 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13.2000 

13.6000 

13.6000 

13.6000 

13.6000 

13.6000 

13.6000 

13.6000 

13.6000 

13 

I3.0UOO 

13.b0u0 

13.6000 

13.6000 

13.6000 

13.6000 

13.6000 

13.6000 

13 

13.6000 

13.6000 

13.6000 

13.6000 

13.6000 

13.6000 

13.6000 

13.6000 

13 

13.6000 

13.6000 

13.6000 

13.6000 

13.6000 

13.6000 

13.6000 

13.6000 

13 

13.6000 

13.6000 

13.6000 

13.6000 

13.6000 

13.6000 

13.6000 

13.6000 

13 

13.6000 

13.6000 

13.6000 

13.6000 

13.6000 

13.6000 

13.6000 

13.6000 

13 

13.6000 

13.6000 

13.6000 

13.6U0U 

13.6000 

13.6000 

13.6000 

14.0000 

14.0000 

14.0000 

14.0000 

14.0000 

14.0000 

14.0000 

14.0000 

14 

14.0000 

14.0000 

14.0000 

14.0000 

14.0000 

14.0000 

14.0000 

14.0000 

14 

14.0000 

14.U0U0 

14.0000 

14.0000 

14.0000 

14.0000 

14.0000 

14.0000 

14 

14.0000 

14.0000 

14.0000 

14.0000 

14.0000 

14.0000 

14.0000 

14.0000 

14 

14.0000 

U.OoUO 

I4.O0OU 

14.0000 

14.0000 

14.0000 

14.0000 

14.0000 

14 

14.0000 

14.0000 

14.0000 

14.0000 

i4.O0u0 

14.0000 

14.0000 

14.UOOO 

14 

14.0000 

14.0000 

14.0000 

14.0000 

14.0000 

14.0000 

14.0000 

14.4U00 

14.4000 

14.4000 

14.4000 

14.4000 

14.4000 

14.4000 

14.4000 

14 

14.4000 

14.4000 

14.4000 

14.4000 

14.4000 

14.4000 

14.4000 

14.4000 

14 

14.4000 

14.4000 

14.4000 

14.4000 

14.4000 

14.4000 

14.4000 

14.4000 

14 

14,4UOO 

14.4000 

14.4000 

14.4000 

14.4000 

14.4000 

14.4000 

14.4000 

14 

14.4000 

14.4(JU0 

14.4000 

14.4000 

14.4000 

14.4000 

14.4UU0 

14.4000 

14 

14.4000 

14.4000 

14.4000 

14.4000 

14.4000 

14.4000 

14.4UU0 

14.4000 

14 

14.4UOO 

14.4000 

14.4000 

14.4000 

14.4000 

14.4000 

14.4000 

14.8000 

14.8000 

14.8000 

14.8000 

14.8000 

14.8000 

14.8000 

14.8000 

14 

lit.aUOO 

14.8000 

14.6000 

14.8000 

14.8000 

14.8000 

14.8000 

14.6000 

14 

1 4 . 8U00 

14.8000 

14.8000 

14.8000 

14.8000 

14.8000 

14.8000 

14.8000 

14 

14.8000 

14.8000 

14.8000 

14.8000 

14.8000 

14.8000 

14.8000 

14.8000 

14 

14.8000 

14.8000 

14.8000 

14.8000 

14.8000 

14.8000 

14.8000 

14.8000 

14 

14.tUiiU 

14.8000 

14.«(J00 

14.8000 

14.8000 

14.8000 

14.8000 

14.8000 

14 

14.6(JlO 

14.8000 

14.8000 

14.8U00 

14.8000 

14.8000 

14.8000 

lb. 2000 

15.2000 

15.2000 

15.2000 

15.2000 

15.2000 

15.2000 

15.2000 

15 

15.2000 

15.2000 

15.2000 

15.2000 

15.2000 

15.2000 

15.2000 

15.2000 

15 

lb. 2000 

15.2000 

15.2000 

15.2000 

15.2000 

15.2000 

15.2000 

15.2000 

15 

15.2000 

15.2000 

15.2000 

15.2000 

15.20(j0 

15.2000 

15.2000 

15.2000 

15 

15.2000 

15.2000 

15.2000 

15.2000 

15.2000 

15.2000 

15.2000 

15.2000 

15 

15.2000 

15.2000 

15.2UOO 

15.2000 

15.2000 

15.2000 

15.2000 

15.2000 

15 

15.2uUU 

15.2000 

15.2000 

15.2000 

15.2000 

15.2000 

15.2000 

15.6000 

15.6000 

15.6000 

1  5 . 6U(»U 

15.6000 

15.6000 

1  5.6000 

15.6000 

15 

15. bUoo 

15.duO(j 

15.6000 

15.000U 

15,6000 

Ib.bOOO 

1  5.bU0() 

15.6000 

15 

15.6(/00 

15.0UOU 

15.6000 

15.6000 

15.60(J0 

15.6000 

15.6000 

15.6000 

15 

15.6000 

I5.0OOU 

Ib.boUo 

15.6000 

15.6000 

15.6000 

1 5 . bOOO 

1  5 .  (iUU(.' 

lb 

15.6003 

15.bO(J0 

15.6000 

15.6UU0 

15.6000 

15.6000 

15.6000 

Ib.bUOO 

15 

I5.0OOO 

15.6000 

15.6000 

15.6000 

15.6000 

15.6O00 

15.6000 

15.6000 

15 

15.6000 

15.6000 

15.6000 

15.6000 

15.OO00 

15.6000 

15.6000 

16.00UU 

16.0000 

16.0000 

I6.O0OO 

16.O0U0 

16. OUOO 

16.0000 

lb.(;OOU 

lb 

1 6.  (;00o 

16.0000 

Ib.UOUO 

16. Oooo 

Ib.LiOUO 

1 6.U0UU 

1 6.0000 

16.0000 

16 

Ib.CJOUO 

16. OUOO 

16.0000 

16.0000 

16.0000 

16.(J000 

16.0000 

16.000(1 

16 

16. OOOO 

lo.Out'O 

I6.(j(i00 

1 6.0000 

l6.000(j 

1 6 • OUOO 

1 6. Oooo 

16.0000 

lb 

lO.OUOO 

16.000(1 

16.0000 

16.0000 

16.0000 

16.('UU0 

16.0000 

16.00 

16 

1 o.UoOO 

Ib.OuOU 

lo.oOoO 

Ib.UOO'J 

lb. OOOO 

1  6.(JU((U 

16. ODOM 

1  b.UdOC' 

16 

16.0000 

16.0(j00 

lb.UOU(j 

16.000(1 

I b. OOOO 

lo.dUUU 

1  6.  ((000 

16.5000 

16.5000 

16. 5(iOO 

1 0. 500u 

16.5000 

lb.  50u(/ 

a 

C 

16.5000 

16 

1 6 . 5'3oU 

16.5(m'iO 

16.3000 

16.  Si'di, 

1  b,  b.  11(1 

1'..  b'K"/ 

.  b  .  j’  ' '( 

.  ■  • 

aUUU 

2000 

2000 

2000 

2000 

2000 

2000 

6000 

6000 

oOOO 

6000 

6000 

6000 

0000 

0000 

0000 

0000 

oooo 

0000 

4000 

4000 

4000 

4000 

40UU 

4000 

8000 

8000 

aOOO 

800(1 

8000 

.8000 

2000 

2000 

2000 

20UU 

2000 

2000 

6000 

bUiMJ 

oUOO 

6000 

.6000 

6O0U 

OOOO 

OOOO 

(jOOC) 

(;uOl; 

UOO'O 

OtIDll 

boiio 
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16.5000  16.5000  lb.5U00 

16.5000  16.5U00  16.5000 

16.5000  16.5000  16.5000 

16.5000  16.5000  16.5000 

16.5000  16.5000  16.5000 
17.0000  17.0000  17.0000 
17.0000  17.0000  17.0000 
17.0000  17.0000  17.0000 
17.U0O0  17.0000  17.0000 
17.0000  17.0000  17.0000 
17.0000  17.0000  17.0000 
17.0000  17.0000  17.0000 

17.5000  17.50O0  17.5000 

17.5000  17.5000  17.5000 

17.5000  17.5000  17.5000 

17.5000  17.5000  17.5000 

17.5000  17.5000  17.5000 

17.5000  17.5000  17.5O00 

17.5000  17.5000  17.5000 
16.0000  16.0000  16.0000 
16.O000  13.0000  16.0000 
Ifl.OO(-f)  16.0000  16.0000 
16.U0U0  16.0000  16.0000 
Itt.OOOO  18.0000  16.0000 
16.0000  16.0000  16.UU00 
U.OOOO  16.0000  16.0000 

16.5000  16.5000  16.5000 

16.5000  16.5000  16.5000 

16.5000  16.5000  16.5000 

16.5000  16.5000  16.5000 

16.5000  16.5000  16.5000 

16.5000  16.5000  16.5000 

16.5000  16.5000  16.5000 

ly.ooou  ly.oooo  ly.oooo 
ly.oooo  ly.oooo  ly.oooo 
ly.oooo  ly.oooo  ly.oooo 
ly.oooo  ly.oooo  ly.oooo 
ly.ciioo  ly.oooo  ly.oooo 
ly.oooo  ly.oooo  ly.oooo 
ly.oooo  ly.oooo  ly.oooo 
iy.5ooo  iy.5ooo  iy.5000 
iy.5ooo  iy.50oo  iy.5ooo 
iy.5ouo  iy.5ooo  19.5000 
iy.5ouo  iy.5000  19.5000 

19. 5000  19.5000  19.5000 

19.5000  19.5000  19.5000 

19.5000  19.5000  19.5000 
ZO.OOOO  20.0000  20.0000 
20.0000  20.0000  20.0000 
20.0000  20.0000  20.0000 
20.0000  20.0000  20.0000 
20.0000  20.0000  20.0000 
20.0000  20.0000  20. 0000 
2O.0000  20.0000  20.0(i00 
20.50UO  20.5000  20.5000 

20.5000  20.5000  20.5000 

20.5000  2o.5uoO  20.5000 
20.5OUO  20.bUOU  20.5000 
2O.50U0  20.5000  20.5000 

20.5000  2(j.5uuo  20.5000 


lu.5000  16.5000  lb.5oO'J 
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20.3000  20.3000  20.5000 
21.000U  21.0000  21.0000 
21.0O0U  21.O000  21.0000 
21.0000  21.0000  21.0000 
21.0000  21.0000  21.0000 
21.0000  21.0000  21.0000 
21.0000  21.0000  21.0000 
21.0000  21.0000  21.0000 
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21.0000  21.0000  21.0000 
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21.0000  21.0000  21.0000 
21.0000  21.0000  21.0000 
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21.0000  21.U000  21.0000 
21.0000  21.0000  21.0000 
21.0000  21.0000  21.0000 
21.0000  21.0000  21.0000 
21.000O  21.0000  21.0000 
21.0000  21.0000  21.0000 
21.0000 
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320.000 

480.000 

340.000 

500.000 

360.000 

380.000 

400.000 
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(vi)  0UT01.DAT 


CUKKtAT-l.'AVt  IMhKACi  ION 


AHHLITUiJE  -  1.000  PEillUD  - 

Ai'JOLE  •=  0.000  GRAVITY  *  32.200 

KhKtKEUCt  POINT  -  (  1000.000  , 

N  -  ttl  NN  -  100  M  *■  100 


S.OOO 

TIDE  -  0.000 

-400.000  ) 


OSIG  -  10.000  OllHO  *  10.000  lOPTCO  -  2  lOPTbU  »  0  lOPTBD  -  0 

iJJACtiO  *  1  IREALO  -  2  IBRtAK  «  1  ICURRN  ■  1 

IFRCT  =  0  XOAi'lP  »  1000.000  FRCT  »  O.lOOOE-01  IBKWTR  «  0 


SECTION  FROM  ( 


150.000  ,  -200.000)  TO  (  150.000 


200.000) 


>.  -  cooku. 

150.0000 

150. 0000 

150.0000 

150.0000 

150.0000 

150. 0000 

150.0000 

150.0000 

150.0000 

150.0000 

150.0000 

!5o.0000 

1 50.0000 

150.0000 

150. 0000 

150.0000 

15O.0O00 

1 50.0000 

150.0000 

150.0000 

150.0000 

150.0000 

150.0000 

150.0000 

150.0000 

150.0000 

150.0000 

1 50.0000 

1  50.0000 

150.0000 

150.0000 

1 SO.OOoO 

150.0000 

15o.Ou00 


Y  -  COORO. 
-350.0000 
-200.0000 
-IVO.OOOO 
-IbO.OOOO 
-170.0000 
-160.0000 
-1  JO. 0000 
-140.0000 
-130.00O0 
-120.0000 
-110.0000 
-100. 0000 
-50.0000 
-bU.OOOO 
-70.0000 
-oU.oOOO 
-50.0000 
-uo.oooo 
-30.0000 
-20.0000 
-10.0000 
0.0000 
lO.OOOU 
20.UO00 
3O.0OO0 
4(;.0U00 
SU.OuoO 
AO. 0000 
7(1.0000 
f>o  •  000(1 
50. 0000 

ion. 0000 

1  lO.ooOO 

12IJ.0UU0 


AMPLITOOE 
1.1399 
1.1695 
1.1750 
1.16b2 
1.0050 
0.9783 
1.163b 
1.1373 
1.1638 
1.1036 
1.0413 
1.0081 
0.9b85 
0.9283 
0.8710 
0.7933 
0.0944 
0.5876 
0.5294 
0.7151 
1.1204 
1.3172 
1.1189 
0.7096 
0.5204 
0.5812 
0.0912 
0.7921 
0.0/ 1  2 
0.9292 
0.9700 
1 .0095 
1.0431 
1.1052 


DEPTH 

PHASE  VALUE 

3.0000 

39.2450 

3. 0000 

39.1427 

3.0000 

39.1645 

3.0000 

39.1382 

3.0000 

39.1851 

3.0000 

39. 1605 

3.0000 

39.0409 

3.0000 

38.9600 

3.0000 

38.9872 

3.0000 

39.0674 

3.0000 

39. 1610 

3.0000 

39.2290 

3 . OOOU 

39,2800 

3.0000 

39.3504 

3.0000 

39.4191 

3.0000 

39.5248 

3.0000 

39.70(JO 

3.0000 

40.0292 

3.0000 

40.01:01 

3.0000 

«1.4503 

3.0000 

41.9985 

3.0000 

42.1173 

3.0000 

42.0041 

3.0000 

41  ,  4b 1 4 

j.uUOO 

40, 6b39 

3.0(J00 

40.023b 

3.0U00 

39.b9-ti' 

3.000(1 

39.5202 

3 .  (/(JOl' 

39.41  3ti 

3 ,  (.iO0(; 

35.34  7,'- 

3.0'jl-O 

39.2843 

3.(J000 

39.2275 

3.U00O 

39.  lb(  (. 

3.0000 

39.oo7ii 
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150.00OU 

130.0UU0 

l.lo51 

150,0000 

140.0000 

1.1382 

150.0000 

150.0000 

1 .  lt)44 

150.0000 

160.0000 

0. 97i)6 

15U.UUU0 

170.0000 

1.0052 

150.0000 

180. 0000 

1.1683 

150.0000 

190.UUUU 

1.1752 

15U.O000 

iOC.OOOO 

1.1695 

-99.000U0 

-99.0U00U 

-99.00000 

J.UUVO 
3.ul)0U 
3.0000 
3. 0000 
3. 0000 
3.000U 
3.0000 
3.0000 


36. Vo 77 
38.yfaot' 
39.0415 
39.1010 
39.1655 
39.1385 
39.164V 
39.1431 


226 


Appendix  E 


a)  Input/Output  Data  Files  for  Waves  Around 

a  Perpendicular  Breakwater 

(i)  IN. DAT 

(ii)  DEPTH.DAT 

(iii)  LOG. DAT 

(iv)  0UT01.DAT 

b)  Input/Output  Data  Files  for  Waves  Around 

an  Inclined  Breakwater 

(v)  IN.DAT 

(vi)  0UT01.DAT 

Note:  DEPTH.DAT  and  LOG. DAT  are  the  same  as  in  (a) 

c)  Input/Output  Data  Files  for  Waves  Around  Two 

Breakwaters 

(vii)  IN.DAT 
(viii)  DEPTH.DAT 
(ix)  LOG. DAT 

(x)  0UT01.DAT 


\ 
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(i)  IN. DAT 


0 


0 

0 

1.000000 

1.000000 

20.00000 

32.20000 

O.OOOOOOOE+00 

7 

2 

15.00000 

-25.00000 

0.2500000 

0.2500000 

250 

260 

1 

5. 0000001 E-02 

O.OOOOOOOE+00 

1.000000 

O.OOOOOOOE+00 

2 

2 


0 

0 

0 

0 

0 

1 

2 

O.OOOOOOOE+00 

O.OOOOOOOE+00 

15.00000 

O.OOOOOOOE+00 

O.OOOOOOOE+00  O.OOOOOOOE+00 

CERC  PERPENDICULAR  BREAKWATER 

O 

12.50000 

-15.00000 

12.50000 

20.00000 

9.000000 

-15.00000 

9.000000 

20.00000 

228 


(ii)  DEPTH.DAT 


0 

0.0  0.0 

0.5  0.5 

0.75  0.75 

0.9  0.9 

1.0  1.0 

1.0  1.0 

1.0  1.0 
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(iv)  0UT01.DAT 


CERC  PERPENDICULAR  BREAKWATER 


AMPLITUDE 

-  1 .000 

PERIOD  - 

1.000 

ANGLE  - 

0.000  GRAVITY 

-  32.200 

TIDE  •  0.000 

REFERENCE 

POINT  -  ( 

15.000  . 

“25.000  ) 

N  •  250 

NN  -  260  M  - 

260 

DSIG  - 

0.230  DRHO  - 

0.250  lOPTCO  -  0  lOPTBU  -  0 

lOPTBD  -  0 

IBACKD  - 

2  IREALD  - 

2  IBREAK  - 

0  ICURRN  -  0 

IFRCT  - 

0  XDAMP  - 

0.000  FRCT 

*  O.OOOOE-t-00  IBKUTR 

-  1 

BREAKWATER 

NO.  -  1 

POINTS  ON  THE  BREAKWATER  - 

2 

15.0000 

0.0000 

0.0000  0.0000 

SECTION  FROM  ( 

12.500  , 

-15.000)  TO  { 

12.500  , 

20.000) 

X  -  COORD. 

Y  -  COORD. 

AMPLITUDE 

DEPTH 

PHASE  VALUE 

12.5000 

-1A.9976 

0.9962 

0.6250 

8.4732 

12.5000 

-14.7475 

0.9963 

0.6250 

8.5922 

12.5000 

-14.4974 

0.9963 

0.6250 

8.7112 

12.5000 

-14.2475 

0.9962 

0.6250 

8.8301 

12.5000 

-13.9974 

0.9961 

0.6250 

8.9488 

12.5000 

-13.7476 

0.9960 

0.6250 

9.0674 

12.5000 

-13.4974 

0.9959 

0.6250 

9.1858 

12.5000 

-13.2476 

0.9960 

0.6250 

9.3042 

12.5000 

-12.9977 

0.9961 

0.6250 

9.4225 

12.5000 

-12.7476 

0.9962 

0.6250 

9.5408 

12.5000 

-12.4977 

0.9963 

0.6250 

9.6592 

12.5000 

-12.2476 

0.9965 

0.6250 

9.7776 

12.5000 

-11.9975 

0.9965 

0.6250 

9.8960 

12.5000 

-11.7476 

0.9964 

0.6250 

10.0144 

12.5000 

-11.4975 

0.9962 

0.6250 

10.1327 

12.5000 

-11.2476 

0.9960 

0.6250 

10.2510 

12.5000 

-10.9975 

0.9956 

0.6250 

10.3691 

12.5000 

-10.7476 

0.9953 

0.6250 

10.4872 

12.5000 

-10.4975 

0.9949 

0.6250 

10.6053 

12.5000 

-10.2475 

0.9946 

0.6250 

10.7232 

12.5000 

-9.9976 

0.9943 

0.6250 

10.8412 

12.5000 

-9.7476 

0.9941 

0.6250 

10.9592 

12.5000 

-9.4976 

0.9938 

0.6250 

11.0773 

12.5000 

-9.2476 

0.9936 

0.6250 

11.1955 

12.5000 

-8.9976 

0.9933 

0.6250 

’1.3137 

12.5000 

-8.7476 

0.9930 

0.6250 

11.4319 

12.5000 

-8.4976 

0.9926 

0.6250 

11.5502 

12.5000 

-8.2476 

0.9922 

0.6250 

11.6684 

12.5000 

-7.9976 

0.9918 

0.6250 

11.7866 
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12.5000 

-7.7476 

0.9915 

0.6250 

11.9048 

12.5000 

-7.A976 

0.9912 

0.6250 

12.0230 

12.5000 

-7.2476 

0.9910 

0.6250 

12.1413 

12.5000 

-6.9976 

0.9908 

0.6250 

12.2597 

12.5000 

-6.7475 

0.9907 

0.6250 

12.3781 

12.5000 

-6.4977 

0.9907 

0.6250 

12.4966 

12.5000 

-6.2477 

0.9906 

0.6250 

12.6152 

12.5000 

-5.9975 

0.9905 

0.6250 

12.7339 

12.5000 

-5.7477 

0.9904 

0.6250 

12.8527 

12.5000 

-5.4977 

0.9903 

0.6250 

12.9715 

12.5000 

-5.2476 

0.9902 

0.6250 

13.0904 

12.5000 

-4.9976 

0.9902 

0.6250 

13.2092 

12.5000 

-4.7476 

0.9902 

0.6250 

13.3282 

12.5000 

-4.4976 

0.9902 

0.6250 

13.4471 

12.5000 

-4.2476 

0.9903 

0.6250 

13.5662 

12.5000 

-3.9976 

0.9904 

0.6250 

13.6854 

12.5000 

-3.7476 

0.9908 

0.6250 

13.8049 

12.5000 

-3.4976 

0.9918 

0.6250 

13.9230 

12.5000 

-3.2476 

0.9870 

0.6250 

14.0403 

12.5000 

-2.9976 

0.9834 

0.6250 

14.1741 

12.5000 

-2.7476 

1.0133 

0.6250 

14.2978 

12.5000 

-2.4976 

1.0205 

0.6250 

14.3727 

12.5000 

-2.2476 

0.9746 

0.6250 

14.4696 

12.5000 

-1.9976 

0.9229 

0.6250 

14.6141 

12.5000 

-1.7476 

0.9063 

0.6250 

14.8087 

12.5000 

-1.4976 

0.9453 

0.6250 

14.9996 

12.5000 

-1.2476 

1.0303 

0.6250 

15.1556 

12.5000 

-0.9976 

1.1334 

0.6250 

15.2604 

12.5000 

-0.7476 

1.2329 

0.6250 

15.3239 

12.5000 

-0.4976 

1.3145 

0.6250 

15.3579 

12.5000 

-0.2476 

1.3683 

0.6250 

15.3685 

12.5000 

-0.1930 

1.3779 

0.6250 

15.3697 

12.5000 

0.2524 

0.7062 

0.6250 

16.0831 

12.5000 

0.5024 

0.7128 

0.6250 

16.1039 

12.5000 

0.7524 

0.7249 

0.6250 

16.1385 

12.5000 

1.0024 

0.7424 

0.6250 

16.1851 

12.5000 

1.2524 

0.7652 

0.6250 

16.2442 

12.5000 

1.5024 

0.7917 

0.6250 

16.3160 

12.5000 

1.7524 

0.8204 

0.6250 

16.3987 

12.5000 

2.0024 

0.8513 

0.6250 

16.4908 

12.5000 

2.2524 

0.8836 

0.6250 

16.5926 

12.5000 

2.5024 

0.9156 

0.6250 

16.7036 

12.5000 

2.7524 

0.9457 

0.6250 

16.8218 

12.5000 

3.0024 

0.9737 

0.6250 

16.9456 

12.5000 

3.2524 

0.9995 

0.6250 

17.0745 

12.5000 

3.5024 

1.0218 

0.6250 

17.2087 

12.5000 

3.7524 

1.0387 

0.6250 

17.3470 

12.5000 

4.0024 

1.0493 

0.6250 

17.4873 

12.5000 

4.2525 

1.0539 

0.6250 

17.6276 

12.5000 

4.5024 

1.0535 

0.6250 

17.7671 

12.5000 

4.7525 

1.0482 

0.6250 

17.9053 

12.5000 

5.0025 

1.0381 

0.6250 

18.0412 

12.5000 

5.2525 

1.0237 

0.6250 

18.1731 

12.5000 

5.5024 

1.0067 

0.6250 

18.2991 

12.5000 

5.7524 

0.9899 

0.6250 

18.4187 

12.5000 

6.0024 

0.9759 

0.6250 

18.5326 

12.5000 

6.2524 

0.9659 

0.6250 

18.6425 

12.5000 

6.5024 

0.9606 

0.6250 

18.7502 

12.5000 

6.7524 

0.9602 

0.6250 

18.8571 

12.5000 

7.0025 

0.9648 

0.6250 

18.9649 
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12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

12.5000 

-99.00000 


7.2525 

7.5025 

7.7525 
8.0025 

8.2525 

8.5025 

8.7525 
9.0025 

9.2525 

9.5025 

9.7525 
10.0024 

10.2523 

10.5024 

10.7525 
11.0024 

11.2525 

11.5024 

11.7523 
12.0024 

12.2523 

12.5024 

12.7523 
13.0024 

13.2525 

13.5024 

13.7525 
14.0024 

14.2525 

14.5024 

14.7525 
15.0024 

15.2525 

15.5026 

15.7525 
16.0026 

16.2525 

16.5026 

16.7525 
17.0026 
17.2527 

17.5026 

17.7527 
18.0023 

18.2524 
18.5023 

18.7527 
19.0025 

19.2524 

19.5025 

19.7524 
19.8069 

-99.00000 


0.9740 

0.9864 

0.9993 

1.0101 

1.0170 

1.0194 

1.0176 

1.0125 

1.0047 

0.9953 

0.9859 

0.9766 

0.9754 

0.9775 

0.9843 

0.9936 

1.0027 

1.0092 

1.0120 

1.0111 

1.0074 

1.0018 

0.9956 

0.9898 

0.9856 

0.9841 

0.9862 

0.9918 

0.9996 

1.0071 

1.0117 

1.0121 

1.0082 

1.0018 

0.9951 

0.9906 

0.9894 

0.9917 

0.9963 

1.0015 

1.0059 

1.0084 

1.0088 

1.0073 

1.0043 

1.0005 

0.9970 

0.9945 

0.9939 

0.9957 

0.9996 

1.0003 

-99.00000 


0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 

0.6250 


19.0759 

19.1919 

19.3137 

19.4407 

19.5709 

19.7022 

19.8330 

19.9620 

20.0883 

20.2111 

20.3294 

20.4435 

20.5545 

20.6651 

20.7784 

20.8964 

21.0193 

21.1459 

21.2743 

21.4026 

21.5291 

21.6533 

21.7749 

21.6936 

22.0095 

22.1236 

22.2375 

22.3533 

22.4726 

22.5961 

22.7230 

22.8512 

22.9783 

23.1019 

23.2210 

23.3364 

23.4503 

23.5650 

23.6822 

23.8023 

23.9247 

24.0482 

24.1719 

24.2949 

24.4168 

24.5372 

24.6560 

24.7733 

24.8893 

25.0051 

25.1220 

25.1474 
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(v)  IN. DAT 


2 


0 

0 

I. 000000 

1.000000 

30.00000 

32.20000 

O.OOOOOOOE-t-00 

7 

2 

15.00000 

-25.00000 

0.2500000 

0.25000000 

201 

60 

1 

2 

5.0000001E-02 

O.OOOOOOOE-t-00 

1.000000 

O.OOOOOOOE+OO 

2 

0 

0 

0 

O.OOOOOOOE-t-00 

O.OOOOOOOE4-00 

0 

0 


1 

2  15.00000 

O.OOOOOOOE+OO 

O.OOOOOOOE-i-00  -8.66 

CERC  INCLINED  BREAKWATER 

4 

12.00000  -15.00000 

12.00000 

20.00000 

10.00000  -15.00000 

10.00000 

20.00000 

8.00000  -15.00000 

8.00000 

20.00000 

6.00000  -15.00000 

6.00000 

20.00000 

234 


(vi)  0UT01.DAT 


CERC  INCLINED  BREAKWATER 


AMPLITUDE 

-  1.000 

PERIOD  - 

1.000 

ANGLE  * 

0.000  GRAVITY  -  32.200 

TIDE  -  0.000 

REFERENCE 

N  ■  201 

POINT  -  ( 

NN  -  60  M 

15.000  , 

-  60 

“25.000  ) 

DSIG  - 

0.250  DRHO  - 

0.250  lOPTCO  -  2  lOPTBU  «  0 

IBACKD  - 

2  IREALD  - 

2  IBREAK  - 

0  ICURRN  -  0 

IFRCT  - 

0  XDAMP  - 

0.000  FRCT 

-  O.OOOOE+OO  IBKWTR 

BREAKWATER  MO.  - 

1  POINTS 

ON  THE  BREAKWATER  -  2 

15.0000  0.0000 

0.0000 

-8.6600 

SECTION  FROM  ( 

12.000  , 

-15.000)  TO  (  12.000 

X  -  COORD. 

Y  -  COORD. 

AMPLITUDE 

DEPTH 

12.0000 

-15.0000 

0.9836 

0.6000 

12.0000 

-14.7500 

0.9836 

0.6000 

12.0000 

-14.5000 

0.9836 

0.6000 

12.0000 

-14.2500 

0.9836 

0.6000 

12.0000 

-14.0000 

0.9836 

0.6000 

12.0000 

-13.7500 

0.9836 

0.6000 

12.0000 

-13.5000 

0.9836 

0.6000 

12.0000 

-13.2500 

0.9836 

0.6000 

12.0000 

-13.0000 

0.9836 

0.6000 

12.0000 

-12.7500 

0.9836 

0.6000 

12.0000 

-12.5000 

0.9836 

0.6000 

12.0000 

-12.2500 

0.9836 

0.6000 

12.0000 

-12.0000 

0.9836 

0.6000 

12.0000 

-11.7500 

0.9836 

0.6000 

12.0000 

-11.5001 

0.9836 

0.6000 

12.0000 

-11.2500 

0.9836 

0.6000 

12.0000 

-11.0000 

0.9836 

0.6000 

12.0000 

-10.7500 

0.9837 

0.6000 

12.0000 

-10.5000 

0.9837 

0.6000 

12.0000 

-10.2500 

0.9837 

0.6000 

12.0000 

-10.0000 

0.9836 

0.6000 

12.0000 

-9.7500 

0.9836 

0.6000 

12.0000 

-9.5000 

0.9836 

0.6000 

12.0000 

-9.2500 

0.9838 

0.6000 

17.0000 

-9.0000 

0.9841 

0.6000 

12.0000 

-8.7500 

0.9841 

O.bOOO 

12.0000 

-8.5000 

0.9833 

0.6000 

12.0000 

-8.2500 

0.9819 

0.6000 

12.0000 

-8.0000 

0.9812 

0.6000 

lOPTBD  -  0 


20.000) 


PHASE  VALUE 
11.1540 
11.3276 
11.5012 
11.6748 
11.8484 
12.0220 
12.1956 
12.3691 
12.5427 
12.7163 
12.8899 
13.0635 
13.2371 
13.4106 
13.5842 
13.7578 
13.9314 
14.1050 
14.2786 
14.4521 
14.6257 
14.7993 
14.9730 
15.1467 
15.3201 
15.4931 
15.6661 
15.8402 
16.0162 
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12.0000 

-7.7500 

0.9838 

0.6000 

16.1930 

12.0000 

-7.5000 

0.9901 

0.6000 

16.3659 

12.0000 

-7.2500 

0.9949 

0.6000 

16.5308 

12.0000 

-7.0000 

0.9884 

0.6000 

16.6906 

12.0000 

-6.7500 

0.9657 

0.6000 

16.8602 

12.0000 

-6.5000 

0.9420 

0.6000 

17.0598 

12.0000 

-6.2500 

0.9541 

0.6000 

17.2846 

12.0000 

-6.0000 

1.0217 

0.6000 

17.4814 

12.0000 

-5.7500 

1.1031 

0.6000 

17.6006 

12.0000 

-5.5000 

1.1148 

0.6000 

17.6518 

1 2.000V. 

-5.2500 

0.9929 

0.6000 

17.6987 

i^.OOOO 

-5.0000 

0.7602 

O.bOOO 

17.8864 

12.0000 

-4.7500 

0.6478 

0.6000 

18.4454 

12.0000 

-4.5000 

0.9187 

0.6000 

18.9125 

12.0000 

-4.2500 

1.3161 

0.6000 

18.9842 

12.0000 

-4.0000 

1.5884 

0.6000 

18.8934 

12.0000 

-3.7500 

1.6324 

0.6000 

18.7446 

12.0000 

-3.5000 

1.4273 

0.6000 

18.5703 

12.0000 

-3.2500 

0.9966 

0.6000 

18.3681 

12.0000 

-3.0000 

0.3888 

0.6000 

18.0389 

12.0000 

-2.7500 

0.3640 

0.6000 

21.4712 

12.0000 

-2.5000 

1.1069 

0.6000 

21.0952 

12.0000 

-2.2500 

1.7664 

0.6000 

20.8515 

12.0000 

-2.0000 

2.2389 

0.6000 

20.6199 

12.0000 

-1.5000 

0.3545 

0.6000 

23.3837 

12.0000 

-1.2500 

0.3495 

0.6000 

23.2271 

12.0000 

-1.0000 

0.3422 

0.6000 

23.0879 

12.0000 

-0.7500 

0.3589 

0.6000 

22.9057 

12.0000 

-0.5000 

0.3743 

0.6000 

22.8274 

12.0000 

-0.2500 

0.3760 

0.6000 

22.7802 

12.0000 

0.0000 

0.3952 

0.6000 

22.6742 

12.0000 

0.2500 

0.4136 

0.6000 

22.6942 

12.0000 

0.5000 

0.4215 

0.6000 

22.6452 

12.0000 

0.7500 

0.4544 

0.6000 

22.6649 

12.0000 

1.0000 

0.4648 

0.6000 

22.6867 

12.0000 

1.2500 

0.5014 

0.6000 

22.6953 

12.0000 

1.5000 

0.5469 

0.6000 

22.7661 

12.0000 

1.7500 

0.5846 

0.6000 

22.8501 

12.0000 

2.0000 

0.6323 

0.6000 

22.9488 

12.0000 

2.2500 

0.6760 

0.6000 

23.0786 

12.0000 

2.5000 

0.7076 

0.6000 

23.2062 

12.0000 

2.7500 

0.7514 

0.6000 

23.3229 

12.0000 

3.0000 

0.8162 

0.6000 

23.4648 

12.0000 

3.2500 

0.8767 

0.6000 

23.6421 

12.0000 

3.5000 

0.9167 

0.6000 

23.8272 

12.0000 

3.7500 

0.9518 

0.6000 

23.9998 

12.0000 

4.0000 

1.0041 

0.6000 

24.1732 

12.0000 

4.2500 

1.0694 

0.6000 

24.3735 

12.0000 

4.5000 

1.1197 

0.6000 

24.6058 

12.0000 

4.7500 

1.1307 

0.6000 

24.8532 

12.0000 

5.0000 

1.0987 

0.6000 

25.0913 

12.0000 

5.2500 

1.0403 

0.6000 

25.2999 

12.0000 

5.5000 

0.9825 

0.6000 

25.4707 

12.0000 

5.7500 

0.9472 

0.6000 

25.6133 

12.0000 

6.0000 

0.9403 

0.6000 

25.7498 

12.0000 

6.2500 

0.9525 

0.6000 

25.8985 

12.0000 

6.5000 

0.9699 

0.6000 

26.0636 

12.0000 

6.7500 

0.9832 

0.6000 

26.2400 

12.0000 

7.0000 

0.9895 

0.6000 

26.4206 

12.0000 

7.2500 

0.9901 

0.6000 

26.6006 
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12.0000 

7.5000 

0.9880 

0.6000 

26.7778 

12.0000 

7.7500 

0.9855 

0.6000 

26.9525 

12.0000 

8.0000 

0.9838 

0.6000 

27.1257 

12.0000 

8.2500 

0.9831 

0.6000 

27.2984 

12.0000 

8.5000 

0.9830 

0.6000 

27.4713 

12.0000 

8.7500 

0.9832 

0.6000 

27.6445 

12.0000 

9.0000 

0.9835 

0.6000 

27.8180 

12.0000 

9.2500 

0.9836 

0.6000 

27.9916 

12.0000 

9.5000 

0.9837 

0.6000 

28.1653 

12.0000 

9.7500 

0.9837 

0.6000 

28.3389 

12.0000 

10.0000 

0.9837 

0.6000 

28.5125 

12.0000 

10.2500 

0.9837 

0.6000 

28.6861 

12.0000 

10.5000 

0.9836 

0.6000 

28.8597 

12.0000 

10.7500 

0.9836 

0.6000 

29.0333 

12.0000 

11.0000 

0.9836 

0.6000 

29.2069 

12.0000 

11.2500 

0.9836 

0.6000 

29.3805 

12.0000 

11.5001 

0.9836 

0.6000 

29.5540 

12.0000 

11.7500 

0.9836 

0.6000 

29.7276 

12.0000 

12.0000 

0.9836 

0.6000 

29.9012 

12.0000 

12.2500 

0.9836 

0.6000 

30.0748 

12.0000 

12.5000 

0.9836 

0.6000 

30.2484 

12.0000 

12.7500 

0.9836 

0.6000 

30.4220 

12.0000 

13.0000 

0.9836 

0.6000 

30.5956 

12.0000 

13.2500 

0.9836 

0.6000 

30.7691 

12.0000 

13.5000 

0.9836 

0.6000 

30.9427 

12.0000 

13.7500 

0.9836 

0.6000 

31.1163 

12.0000 

14.0000 

0.9836 

0.6000 

31.2899 

12.0000 

14.2500 

0.9836 

0.6000 

31.4635 

12.0000 

14.5000 

0.9836 

0.6000 

31.6371 

12.0000 

14.7500 

0.9836 

0.6000 

31.8107 

12.0000 

15.0000 

0.9836 

0.6000 

31.9842 

12.0000 

15.2500 

0.9836 

0.6000 

32.1578 

12.0000 

15.5001 

0.9836 

0.6000 

32.3314 

12.0000 

15.7500 

0.9836 

0.6000 

32.5050 

12.0000 

16.0000 

0.9836 

0.6000 

32.6786 

12.0000 

16.2500 

0.9836 

0.6000 

32.8522 

12.0000 

16.5000 

0.9836 

0.6000 

33.0257 

12.0000 

16.7500 

0.9836 

0.6000 

33.1993 

12.0000 

17.0000 

0.9836 

0.6000 

33.3729 

12.0000 

17.2500 

0.9836 

0.6000 

33.5465 

12.0000 

17.5000 

0.9837 

0.6000 

33.7201 

12.0000 

17.7500 

0.9837 

0.6000 

33.8937 

12.0000 

18.0000 

0.9837 

0.6000 

34.0672 

12.0000 

18.2500 

0.9836 

0.6000 

34.2407 

12.0000 

18.5000 

0.9835 

0.6000 

34.4143 

12.0000 

18.7500 

0.9834 

0.6000 

34.5881 

12.0000 

19.0000 

0.9836 

0.6000 

34.7619 

12.0000 

19.2500 

0.9839 

0.6000 

34.9356 

12.0000 

19.5001 

0.9843 

0.6000 

35.1087 

12.0000 

19.7500 

0.9841 

0.6000 

35.2817 

12.0000 

20.0000 

0.9834 

0.6000 

35.4549 

-99.00000 

-99.00000 

-99.00000 
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(vii)  IN. DAT 


2 

0 

0 

1.000000 

0.830000 

-18.00000 

9.80000 

O.OOOOOOOE+00 

10 

2 

4.500000 

4.000000 

0.0400000 

0.0500000 

160 

70 

1 

0 

6. 700000 lE-02 

O.OOOOOOOE+00 

0.400000 

O.OOOOOOOE+00 

2 

0 

0 

0 

O.OOOOOOOE-t-00 

O.OOOOOOOE+00 

0 

0 


2 

3 

3.10  0.70 

2.30  1.60 

0.00  1.60 

3  3.10  -0.70 

DOUBLE  BREAKWATERS 

O 

2.30  -1.60 

0.00  -1.60 

2.800000 

-4.500000 

2.800000 

4.500000 

2.000000 

-4.500000 

2.000000 

4.500000 
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(viii)  DEPTH.DAT 


0 

0.0 

0.0 

0.1 

0.1 

0.2 

0.2 

0.22 

0.22 

0.24 

0.24 

0.32 

0.32 

0.40 

0.40 

0.40 

0.40 

0.40 

0.40 

0.40 

0.40 
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(x)  0UT01.DAT 


DOUBLE  BREAKWATERS 

AMPLITUDE  -  1.000  PERIOD  -  0.830 

ANGLE  -  0.000  GRAVITY  -  9.800  TIDE  -  0.000 

REFERENCE  POINT  -  (  4.500  ,  4.000  ) 

N  -  160  NN  -  70  M  -  70 

DSIG  -  0.040  DRHO  -  0.050  lOPTCO  -  2  lOPTBU  -  0  lOPTBD  -  0 

IBACKD  -  2  IREALD  -  2  IBREAK  -  0  ICURRN  -  0 

IFRCT  -  0  XDAMP  -  0.000  FRCT  -  O.OOOOE+00  IBKWTR  -  2 


BREAKWATER  NO.  -  1  POINTS  ON  THE  BREAKWATER  -  3 


3.1000 

0.7000 

2.3000 

1.6000  0.0000 

1.6000 

BREAKWATER 

NO.  -  2 

POINTS 

ON  THE  breakwater  -  3 

3.1000 

-0.7000 

2.3000 

-1.6000  0.0000 

-1.6000 

SECTION  FROM  ( 

2.800  , 

-4.500)  TO  ( 

2.800  , 

4.500) 

X  -  COORD. 

Y  -  COORD. 

AMPLITUDE 

DEPTH 

PHASE  VALUE 

2.8000 

4.0000 

0.9430 

0.1867 

10.1990 

2.8000 

3.9500 

0.9488 

0.1867 

10.3029 

2.8000 

3.9000 

0.9543 

0.1867 

10.4061 

2.8000 

3.8500 

0.9592 

0.1867 

10.5087 

2.8000 

3.8000 

0.9632 

0.1867 

10.6108 

2.8000 

3.7500 

0.9663 

0.1867 

10.7124 

2.8000 

3.7000 

0.9682 

0.1867 

10.8135 

2.8000 

3.6500 

0.9691 

0.1867 

10.9140 

2.8000 

3.6000 

0.9688 

0.1867 

11.0141 

2.8000 

3.5500 

0.9673 

0.1867 

11.1134 

2.8000 

3.5000 

0.9648 

0.1867 

11.2120 

2.8000 

3.4500 

0.9613 

0.1867 

11.3096 

2.8000 

3.4000 

0.9570 

0.1867 

11.4063 

2.8000 

3.3500 

0.9519 

0.1867 

11.5017 

2.8000 

3.3000 

0.9464 

0.1867 

11.5959 

2.8000 

3.2500 

0.9406 

0.1867 

11.6887 

2.8000 

3.2000 

0.9348 

0.1867 

11.7801 

2.8000 

3.1500 

0.9293 

0.1867 

11.8700 

2.8000 

3.1000 

0.9245 

0.1867 

11.9585 

2.8000 

3.0500 

'J.9206 

0.1867 

12.0458 

2.8000 

3.0000 

0.9180 

0.1867 

12.1322 

2.8000 

2.9500 

0.9168 

0.1867 

12.2180 

2.8000 

2.9000 

0.9173 

0.1867 

12.3039 

2.8000 

2.8500 

0.9191 

0.1867 

12.3904 

2 


2.S000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 

2.8000 


2.8000 

0.9222 

0.1867 

12.4779 

2.7500 

0.9261 

0.1867 

12.5667 

2.7000 

0.9304 

0.1867 

12.6570 

2.6500 

0.9346 

0.1867 

12.7486 

2.6000 

0.9384 

0.1867 

12.8414 

2.5500 

0.9415 

0.1867 

12.9352 

2.5000 

0.9437 

0.1867 

13.0296 

2.4500 

0.9450 

0.1867 

13.1242 

2.4000 

0.9455 

0.1867 

13.2187 

2.3500 

0.9453 

0.1867 

13.3130 

2.3000 

0.9446 

0.1867 

13.4069 

2.2500 

0.9436 

0.1867 

13.5004 

2.2000 

0.9424 

0.1867 

13.5934 

2.1500 

0.9411 

0.1867 

13.6860 

2.1000 

0.9399 

0.1867 

13.7781 

2.0500 

0.9388 

0.1867 

13.8698 

2.0000 

0.9377 

0.1867 

13.9611 

1.9500 

0.9367 

0.1867 

14.0522 

1.9000 

0.9357 

0.1867 

14.1437 

1.8500 

0.9354 

0.1867 

14.2359 

1.8000 

0.9371 

0.1867 

14.3283 

1.7500 

0.9409 

0.1867 

14.4185 

1.7000 

0.9438 

0.1867 

14.5036 

1.6500 

0.9385 

0.1867 

14.5849 

1.6000 

0.9198 

0.1867 

14.6747 

1.5500 

0.8989 

0.1867 

14.7940 

1.5000 

0.9136 

0.1867 

14.9427 

1.4500 

0.9946 

0.1867 

15.0632 

1.4000 

1.1064 

0.1867 

15.0879 

1,3500 

1.1434 

0.1867 

15.0017 

1.3000 

0.9852 

0.1867 

14.8454 

1.2500 

0.5757 

0.1867 

14.8167 

1.2000 

0.4566 

0.1867 

15.9091 

1.1500 

1.0281 

0.1867 

16.4329 

1.1000 

1.6936 

0.1867 

16.1874 

1.0000 

0.4439 

0.1867 

18.3782 

0.9500 

0.3937 

0.1867 

18.0859 

0.9000 

0.3997 

0.1867 

17.8172 

0.8500 

0.3872 

0.1867 

17.5011 

0.8000 

0.3792 

0.1867 

17.3001 

0.7500 

0.3986 

0.1867 

17.0962 

0.7000 

0.4138 

0.1867 

16.9229 

0.6500 

0.4464 

0.1867 

16.8031 

0.6000 

0.4861 

0.1867 

16.7007 

0.5500 

0.5417 

0.1867 

16.6552 

0.5000 

0.5954 

0.1867 

16.6351 

0.4500 

0.6711 

0.1867 

16.6388 

0.4000 

0.7537 

0.1867 

16.6981 

0.3500 

0.8206 

0.1867 

16.7796 

0.3000 

0.8920 

0.1867 

16.8650 

0.2500 

0.9786 

0.1867 

16.9835 

0.2000 

1.0517 

0.1867 

17.1492 

0.1500 

1.0783 

0.1867 

17.3331 

0.1000 

1.0513 

0.1867 

17.4900 

0.0500 

0.9880 

0.1867 

17.5942 

0.0000 

0.9175 

U.18b7 

17.6595 

-0.0500 

0.8673 

0.1867 

17.7338 

-0.1000 

0.8617 

0.1867 

17.8513 

-0.1500 

0.9130 

0.1867 

17.9823 

-0.2000 

0.9924 

0.1867 

18.0717 
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2.8000 

-0.2500 

1.0432 

0.1867 

18.1129 

2.8000 

-0.3000 

1.0410 

0.1867 

18.1438 

2.8000 

-0.3500 

1.0115 

0.1867 

18.1922 

2.8000 

-0.4000 

0.9782 

0.1867 

18.2477 

2.8000 

-0.4500 

0.9278 

0.1867 

18.3029 

2.8000 

-0.5000 

0.8594 

0.1867 

18.3847 

2.8000 

-0.5500 

0.7996 

0.1867 

18.4948 

2.8000 

-0.6000 

0.7399 

0.1867 

18.6156 

2.8000 

-0.6500 

0.6822 

0.1867 

18.7718 

2.8000 

-0.7000 

0.6365 

0.1867 

18.9447 

2.8000 

-0.7500 

0.5972 

0.1867 

19.1493 

2.8000 

-0.8000 

0.5644 

0.1867 

19.3728 

2.8000 

-0.8500 

0.5470 

0.1867 

19.6158 

2.8000 

-0.9000 

0.5348 

0.1867 

19.9035 

2.8000 

-0.9500 

0.5209 

0.1867 

20.1921 

2.8000 

-1.0000 

0.5338 

0.1867 

20.5041 

2.8000 

-I.IOOO 

1.5760 

0.1867 

19.7180 

2.8000 

-1.1500 

1.3577 

0.1867 

20.0088 

2.8000 

-1.2000 

1.0826 

0.1867 

20.1972 

2.8000 

-1.2500 

0.8534 

0.1867 

20.2261 

2.8000 

-1.3000 

0.7624 

0.1867 

20.1372 

2.8000 

-1.3500 

0.8052 

0.1867 

20.0725 

2.8000 

-1.4000 

0.8894 

0.1867 

20.1223 

2.8000 

-1.4500 

0.9468 

0.1867 

20.2389 

2.8000 

-1.5000 

0.9662 

0.1867 

20.3678 

2.8000 

-1.5500 

0.9616 

0.1867 

20.4847 

2.8000 

-1.6000 

0.9499 

0.1867 

20.5855 

2.8000 

-1.6500 

0.9411 

0.1867 

20.6755 

2.8000 

-1.7000 

0.9374 

0.1867 

20.7622 

2.8000 

-1.7500 

0.9367 

0.1867 

20.8500 

2.8000 

-1.8000 

0.9368 

0.1867 

20.9402 

2.8000 

-1.8500 

0.9365 

0.1867 

21.0324 

2.8000 

-1.9000 

0.9359 

0.1867 

21.1257 

2.8000 

-1.9500 

0.9354 

0.1867 

21.2194 

2.8000 

-2.0000 

0.9356 

0.1867 

21.3132 

2.8000 

-2.0500 

0.9366 

0.1867 

21.4068 

2.8000 

-2.1000 

0.9383 

0.1867 

21.4996 

2.8000 

-2.1500 

0.9406 

0.1867 

21.5915 

2.8000 

-2.2000 

0.9428 

0.1867 

21.6823 

2.8000 

-2.2500 

0.9445 

0.1867 

21.7719 

2.8000 

-2.3000 

0.9452 

0.1867 

21.8606 

2.8000 

-2.3500 

0.9444 

0.1867 

21.9489 

2.8000 

-2.4000 

0.9419 

0.1867 

22.0375 

2.8000 

-2.4500 

0.9378 

0.1867 

22.1274 

2. 8000 

-2.5000 

0.9328 

0.1867 

22.2195 

2.8000 

-2.5500 

0.9279 

0.1867 

22.3144 

2.8000 

-2.6000 

0.9244 

0.1867 

22.4119 

2.8000 

-2.6500 

0.9236 

0.1867 

22.5111 

2.8000 

-2.7000 

0.9262 

0.1867 

22.6105 

2.8000 

-2.7500 

0.9320 

0.1867 

22.7082 

2.8000 

-2.8000 

0.9401 

0.1867 

22.8027 

2.8000 

-2.8500 

0.9489 

0.1867 

22.8930 

2.8000 

-2.9000 

0.9566 

0.1867 

22.9792 

2.8000 

-2.9500 

0.9614 

0.1867 

23.0622 

2.8000 

-3.0000 

0.9622 

0.1867 

23.1438 

2.8000 

-3.0500 

0.9588 

0.1867 

23.2256 

2.8000 

-3.1000 

0.9517 

0.1867 

23.3096 

2.8000 

-•*.1500 

0.9421 

0.1867 

23.3972 

2.8000 

-3.2000 

0.9314 

0.1867 

23.4891 

2.8000 

-3.2500 

0.9216 

0.1867 

23.5857 
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2.8000 

-3.3000 

0.9142 

0.1867 

23.6865 

2.8000 

-3.3500 

0.9107 

0.1867 

23.7899 

2.8000 

-3.4000 

0.9117 

0.1867 

23.8942 

2.8000 

-3.4500 

0.9173 

0.1867 

23.9973 

2.8000 

-3.5000 

0.9269 

0.1867 

24.0973 

2.8000 

-3.5500 

0.9391 

0.1867 

24.1928 

2.8000 

-3.6000 

0.9524 

0.1867 

24.2831 

2.8000 

-3.6500 

0.9652 

0.1867 

24.3681 

2.8000 

-3.7000 

0.9756 

0.1867 

24.4483 

2.8000 

-3.7500 

0.9824 

0.1867 

24.5246 

2.8000 

-3.8000 

0.9844 

0.1867 

24.5982 

2.8000 

-3.8500 

0.9809 

0.1867 

24.6704 

2.8000 

-3.9000 

0.9717 

0.1867 

24.7425 

2.8000 

-3.9500 

0.9570 

0.1867 

24.8160 

99.00000 

-99.00000 

-99.00000 

244 


